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EL PASO MAS SERIO 



PARA EL SPECTRUM 

Lo mas nuevo para tu Spectrum, 

por fin ha llegado. 

INVESTRONICAteofrece 

el sistema de discos. 

Lo ultimo en la tecnologia de microinformartica. 

Ve e informate en 

tu concesionario INVESTRONICA. 
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SIMULADOR DE VUELO 

Los programas simuladores de vuelo, 

prdcticamente nacieron con los sistemas de ordenadores. 

Enlre los primeros, encontramos el PSION 

analizado en profundidad por un 

pdoto espanol en nuestras pdginas, mientras evalua la 

realidad-ficcion de su desarrollo. Para 

cerrar, el Interceptor Cobalt, uno de los mas recientes 

y complejos con el que poder «guerrear» y volar 

a gran altar a... sin moverse de su sillon. 




OFERTA ESPECIAL DE SUSCRIPCION 
» ■" »LCANCE CON MAS VENTAJAS 




* DISFRUTE I 

12MESES POR SOLO 3.000 PTAS. 

NO ENVIE DINERO AHORA... LE EACTURAMOS 

SU IMPORTS MAS ADELANTE 



PROCRAMAR SU 

Una obra imprescindible para sacar mas rendimiento 
a su Spectrum 



• 132 pdginas 

• Tamaiio: 210 ■ 




IBILIDAD DE GANAR 
ESTE FABULOSO 
MONITOR 



MONITOR "MICROVITEC CUB COLOUR- 

• Salida RQB 

• Pantalla de 14" 

• Compatible con olros ordenadores 

• Dimensiones: 
352 (ancho) < 387 (fondo) X 298 (alto) 

• Peso 12 Kg. 



DEVUELVANOS HOY MISMO DEBID' 
CUMPUMENTADA LA TARJETA DE SUSCRIPCION 
ADJUNTA Y PART1CIPARA EN EL SORTEO A CELEBRAR 
ANTENOTARIO DEL ILUSTTtE COLEGIO DE MADRID. 
EL 20 DE MAYO DE 1985 



ESTA OFERTA ES 



L 15 DE MAYO DE I9S5 




Hace ya bastanlc ticmpo que 
h casa de software Psion sacd 
al mercado el simulador de 
vuelo. El ya famoso juego tuvo una 
aceptaeion inmediata por pane de 
los usuarios del Spectrum. Comn el 
exito del programa conttnua, vamos 
atfedicaresteartlculoacoinenftiTfoy 
analizarlo. Pero no nos vamos a que- 
dar sob en eso, sino ciue, adcm as, to 
tompataremos con cl vuelo dc una 
avioneta real. Esperamos que csto 
pueda ser util paw aquellos que no 
ban volado nunca y crean que estos 
aparatos son lal y como Psion los ha 
stmulado en su programa. 

Sin quitarle alas a uucstro imagi- 
nario vuelo ircmos viendo, pasc a 
paso, en que se parecen y en que se 
direrenci.m la realidad y la fiction. 
i Vamos alia ton el programa! 

Una vezeargadocl programa en tu 
Spectrum tendras a la vista tin menu 
con tres opciones. I) En vuelo, 2) 
Aproximacion final, y i) Despegue. 
Los tomentaremos por este orden. 

En vuelo 

Pulsamos "I" y ci ordenador nos 
prcguntara si queremos que nos alec- 
le el viento o no. Si accede mos a que 
luya viento, la m.iquina nos data un 
vien to aleatono en vcloeidad ydirec- 
cion. Mas tardc. el viento nos atecta- 
r.i en vuelo provocindonos en el si- 
mulador una deriva (cuando la ruta 
que sigue el avion ditiere del rumbo 
seleccionado) que notartmos mucho 
mas en la maniobra de aproximacion 
y aterrizaje. Ya estamos en vuelo. 

Aqui empiezan las complitaeio- 
nes. El avion lo podemos controlai 
alrededot de mis tres ejes por medio 
dc seis teelas. La superficie dc mando 
que controls una avioneta alrcdedor 
del eje vertical cs cl timtin dc cola y es 
mandado por el piloto eon los pies, a 
trjves dc los pedalcs. En cstc simula- 
dorsustituimos los pedaies pot las te- 
elas «z» y »k~. En cste simulador esta 
muy logrado el ctecto del timbn dc 
eola, pcro normalmentc no lo vamos 
a usar ya que no afecta mucho al 
avion (soloayudaa virarmasdeprisa) 



y es imcimodo de manejar a la vez 
que los cursorcs. Poi supuesto, un 
joystick nos seria utilisimo ya que 
nos permit! ria un mane jo mas logico 
y una mayor comodid.al cuaiido tu- 
vieramos que pulsar otras teelas co- 
mo las de llap, iren, etc. Las teelas 
cursores conirolan el alabeo del 
avion (derecha e i/quicrda) y el pica- 
do o encabritado (afriba y abajo). La 
ileeba que apuilta hacia abajo (6) in- 
dica palanca hacia alr.iso loquecslo 
mmno, subida del avion. En esie as- 
peeto es dondc, quiza, menos se pa- 

cional. En el simulador las rcspucstas 
a los mandos son muy lentas, como 

tcju para iniciar un movimiento y. 
una vez iniciado, pcreza para parar- 
lo) lo que en una avioneta no oeurrc. 
Porotra pane, como cl ordenador no 
puede determin.il la prcsion que ba- 
cemos sobre las teelas, no podremos. 



peci 



/elocidad (por ejemplo encabritado 
,uavc o picado r.ipido). Esta rcspues- 

al eje horizontal y perpcndicti- 

■icados y subidas de morro, ya que se 
: suma un retrasoen la reaccion del 
imulador euando pulsamos una te- 
la. Una avioneta o avion rcales, du- 
ante un viraje (avion alabeando), ne- 
csitan mas poteneia para n 
i altura y la vcloeidad ya que s; 



i. En 



ala 
muladorcsto hay que tcncrlo muy en 
cuenta pucs ocurre igual pero ade- 
m.is algo exagerado. Todo esto tun- 
vierte el simulador de la casa Psion 
en un aparato dilicil de volar y mu- 
cho mas de aterrizar. 

Las respuestas a los mandos de tn- 
cremento o disminucion de poteneia 
tambien son lentas respecto a un apa- 

Los Haps son uno's disposilivos 
que bay en las alas y que perniiicn al 
anon volar ni.isdcsp.Hii>. Se utili/ati 
en los aternzajes para que la veloci- 
tiad en la toma de tierra sea mas len- 
ta, permitiendo que la longnud de 
pista necesaria sea menor. Los etec- 
tos que prove 



flaps en eualquicr avion s 

te reprodueidos en el simulador. Es- 






picado y una di 
eidad debida a la mavor rcsisteneia al 
avance. Tambren la extension del 
tren dc aterrizaje nos ciea un picado 
y una disminucion dc vcloeidad. 



ue aju^tar poteneia y mi 
dc vuestro avion para n 
vcloeidad y la alutud, ci 



Por c 

delnsinstrumcntosde vuelo del. 
bin.i sou muy r.ipidas y ea.si idem 
a las reales. El primer insirunu 
que podemos ver, empczando por la 
izquicrda, esel ILS, cl cual comeme- 
remos luego, en el apartado de la 
Elsiguienlcesel 






/elo- 



cidad del avion ton respecto 

buenas y rapidas, pero tienen el de- 
k'eto de no darseiiales por debajo de 
50 nudos. Es important? que la vclo- 
eidad del simulador no eaiga por de- 
bajo de unos 80 nudos, pues el avion 
nos entraria en perdida (como un 



Ader 



altui 



el .r 



por algun deseuido, lo primero que 
habria que h.uer es picar y aumentar 
la poteneia a rondo y, una vcz que la 
vcloeidad haya aumentado to sutl- 

Mas a la izqquierda tcnemos un 
doble instrumento que viene eom- 
plemcntado con las indicaciones del 
rettangulo inferior. Este es el que nos 
sirve para la navegacion. El niimcro 

tuta es el rumbo actual que llevamos, 
que escero para nortey IBOparasur. 
El punto que parpadca alrcdedor en 
el eirculo grande reprcsenta la punta 
de una flccha que senala al radiofaro 

cla «b". En ingles esto se llama beacon 
v viene representadoen el rettangulo 
Inferior por BCN. Debaio de BCN 
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HEMOS RETRASADO LA GRAN FINAL 
Envia rapidamente tu tarjeta de participation. 

Diviertete consiguiendo 
regalos tan estupendos 
como los de la "tele" 



Llega la diversion delana^ 

iBusca tu Chollo! iParticipajfjaiB 

Concursa en casa con los profagonistas de la "tele" 

Con tu Spectrum (no irrtporta e! modelo, 16 6 48 K.) y lo cinto del "Un, Dos, Tres..." 

podrds conseguir diversion sin limites junto con los tuyos. 

Por primero vez se te ofrece un concurso parlicipolivo para microordenador, 

donde puden competir haslo Ires parejas, Y con lo novedad de que el juego sera 

coda vez disNnto, pues siempre que conecles la clnla al Spectrum, 

le otrecero diferentes atlemativas. 

"Wjuego para disfrutar con tus amigos 

BigoteArrocet te invito en persona o un concurso exactamenle igual que el de la"tele". 

Bosto con que pongos la clnla en lu cassette y el te ird dando los instrucciones 

de este nuevo y diferente juego. Puedes conseguir premios tan sorprendentes 

como los del programo de Chicho y, por supuesto; tambien tiene Chollo. 

1 de coda 3 cassetes contiene iPREMIO DIRECTO!: 

Viajes, moto-vespos, sinterizadores, microordenadores 
Spectaim, QL, un monton de premios mas, y el gran Chollo. 






iTRES MILLONES DE PESETAS! 

en premios que puedes conseguir participant en lo gran final. 
No pierdas mas tiempo, compra la cinta del "Un, Dos, Tres! 

Patrocinadores del concurso: — r_ 



CECOMSA 



(S 



ime 



MOTOVESPA 



Information y venta exclusive] en la red de Concesionarios Aulorizodos INVESTRONICA- — 

EN EL PROXIMO NUMERO DE ESTA REVISTA 
iiRelacion de premios!! 



is aparece el indicative (dos letras) 
del beacon select ionado. Podreis 
Ltmiprob.it que scyun cambiamos de 
radiol'dro pulsando b, cl punlo seria- 
lani un silio diicrenie. RGE, quo apa- 
rece a la derrecha de BCN, corres- 
ponde a las siglaS de raifgt o disrancia 
del avion al radiolaro seleccionado, 
en millas. Mas a la derecha tcnemos 
las siglas BRG por Staring, que es cl 
rumbo que tendriamos que poner 
para llegar directamente al radiolaro 
seletcionadoy que nos viene indics- 
dojustodebajo. Con la ayudadecsto 
podremos movent os con mayor (aci- 
iidad por todo el terreno a nuescra 
disposition, el cual aparctcra pul- 
sando "tri". Asi, si quisicramos llegar 
a la pisia principal, seletctonariamos 
el beacon ME y nos dirigiriamos di- 
rectamente liaeia el pouiendo por 
rumbo el que nos aparcce debajo do 
BRG. En un avion real esto es basica- 
mente igual pero mas ciimodo al te- 



aguja 



■/. do punlos y un. 



El siguienre instrume: 
nos es el allimotro, qu 
nenta con ol radioahirt 



i indiblt obscrvarloen los aierri- 
s yen vuelo rasante. El altimetro 

^imil.idoi lunciona como uno 



; nidi 



II y I 

as, siorldo la aguja larga la que in- 

;a los cientos de pies y la corta los 

ies de pies. 

El ultimo insttumentodc vuelo es 
o indicidor de la velo- 
I, tambien igual a los 

de pies por minuto. Hay que te- 
lo muy en cucnta en los aiernza- 



La indie 



cidad 



nmdicador lineal.) 



bustible 

miendo a medida que 

tiempo de vuelo. Este consumo sera 

mayor cuanto mayor sea la potencia 

seleccionada. 

Por ultimo, solo nos quedan dos i 



dicador 
tren, q 



1 la cabin 



Son s 



baja y sube instant 
, y el del flap, que bafli y 8 



del 



iado deprisa. Ninguno de lo: 



Aproximacion final 

Una vcz pulsado (!1 -2. sc nos pre- 
gumara si qutremos viento o no. El 
aterrizaje con viento os realmonte 
dificil y os aconsejamos que hagais 
las tomas do iierra sin viento hasia 
que seais unos exportos. para luego 
i el. Una ve* elegida ' 



opci 



lei.. 



1.500 pies do alturay alii 
dos con la pista principal. Tendrt- 
mos el Hap y el tren subidos por lo 
que 110 debemos olndar baj.irlos. En 
seguida lendremos indication en el 
ILS, a la izquicrda del todo. Lis indi- 



igualesa lasde uno real, pero selepa- 
recemucho. En un aterrizaje el avion 
licne que estar sobre la prolongation 
del eje de la pista. Esto, en un instru- 
ment real, viene represents do por 
un palito vertical quese centra cuan- 
do estamos bien alincados y que se 
mueve hacia la derecha cuando esa 
lines de prolongation del eje de la 
pista se nos queda a la derecha debt- 
do a un desplazjmiento a la izquier- 



da del avion, porelefecto del viento. 
En esecaso. lenemosquevirarligera- 
mente a la derecha para volver a in- 
terceptsrla linca central. El avion tie- 
ne que llevar una senda de descenso 
optima, ton una pendientc determi- 
nada. En un ILS la situation del 
avion respet'fo a la senda ideal viene 
representada por una barra horizon- 

avion se encuentrc bien siiuado y 
que se desplazara bacia arriba cuan- 
do la senda quede por encima, es de- 
ar, cuando el avion vaya demasiado 
bajo, por lo que babr.i quo ascender 
un poco o man ten er linea do vuelo, 
Como podreis deducir, para que cl 
avion Ueveuna position torrcci.i a lo 
largo de coda la trayectoria final, do- 
bcran estar las dos barras, liorizonral 
y vertical, cenrrsdas. 

Estas dos barras form an una cruz y 
asi es como viene reprcsentado en el 
simulador. Si la crux, por ejemplo, 
esta por encima y a la derecha de las 
dos escalas ccntradas, tendremosque 
baiar mas despaeio o manteuer linea 
de vuelo y aurricnrar un poco el rum- 
bo J la derecba. Tambien hay que ea- 



rn uy r. 
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; del v 
ceder los 2.000 pie 
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GP-SO 


40 cps 


•16 


2 


A-Paralelo 

AS-Serial 


A-25.900 
AS-29 900 
S- 28. 900 
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GP-SOO 


50 cps 


80 


2 


AS-5erial 


A-47900 
AS-49900 




GP-SSO 


SB Ops 


80-136 


18 


A-Patalelo 


A-59.900 




GP-70D 


50 cps 


80-106 
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A-Paralelo 


A-B9.900 




BP-5200 


200 cps 


136-272 


IB 


Paralelo y serial 


199.000 


DM 


BP-5420 


420 cps 


136-272 


18 


Paraleo y serial 
l-IBM PC 


299.000 
I-299.000 
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EASE I.' 1 

y 1 en 48 K). 

-Pragrama COBALT. Esciida d< 
Pilotaje (16 K - -IB K), Le pcrmitir. 
aprendcr a domiiiar el aparalo. 
FASE 2. J 

-Programs COBALT, leyes de I. 
caw{16K-48K),cnmprobaraelni 
«e!queVd liajfcaimdoalsalirde . 




no son afeetadas por la presencia di 
la Zona. 

Nosotros habiamos notado tain 
bien una kierie correlation e litre la 
aparieion de la zona y los ataqui- 
enemigos. La liipiitesis de una Zon s 
Delta Icncmii'iio artificial y no naiu 
ral nos condtljo a pi'nsar que debi 
eristir una forma de genefador d.- 

Interceptor Cobalt 
■•2.'' Generation- 



aque 
-Cakuladotdet.ro 

C'.iii uladoia de abordo 

go) de jluinbr.ido y temperatura di 
ligtrro. uidicador de ui ; .. ,. , dt 



!.!• .|... 



-de 



lidad 1 



del :. 



lu dpai 






.,,.. 



I. .:.-. 



.,„ 



«pe|ijtrosque debe- 
el Inicreeptoi CO- 

icrccpioi COBAI 1 
Lonseguido conver- 



t d< .. 






escuadrill. 

.,;..:..... ... la /on. 

Para uiilizai los programas, la C 
(tnjyuscub) es indispensable. 
LOAD" ol.OAU "DEMO" tjigau 
el programa de demostracion (uiil:- 
/a: mayiisculas) Sera preciso un 
Sp« :ium di JK K s. se quiete qui- las 
• ntjlfttdcdemostrai-idnciuedenri- 
iada- repitiendose 

LOAD -COBALr (mayusculas 
indispensable) cargara lualquuu de 
los rt-st.i tiles proj:u.ii.is No i ihsl.tr it* 
para pedct taigai el tuarlo di bt-ra 
itahei coitseguidb supei.tr los tests 
del prtigumj 3 (la mision is dtina- 
5..1J0 peligrosa para prci .pilar a un 
prim ipiante A lin de (amiharizarse 
con su a para to, largue el programs 2 
-COBALT- Escuela de Pilotaje y pa- 
st a la unidad de ' 



I 1.1. 1. ni de instruction 1 



■: Los parigrafos eontenidos 
Clemen a las 6r- 



16 K. Cuando el tablero de abordo 



Aquiel ordcnador 
Hit-Bit de Sony. 



Aquila familia. 

lUl ate ifiyfltf 




Aquia su izquierda tiene el nue- 
vo ordenador persona! Hit-Bit de 
SONY. Algo especial, el autentico 
ordenador dom6stico. Repetimos, 
es de SONY. 

A la derecha tenemos a una fa- 
milia. Normal. Como la suya o la 
de tantos. Con problemas o no, con 
aficiones y con ganas de tenerlo to- 
do muy bien ordenado. 

El hombre puede usar el Hit-Bit 
para resolver sus asuntos profesio- 
nales a la perfeccion. 

Pero tambi6n en casa Hit-Bit 
echa una mano; contabilidad del 
hogar, agenda familiar y todo lo 
que haya que ordenar. 

Y todos los comecocos, marcia- 
nitos y monstruitos que su hijo le 
pida. Pero tambien una amplia ga- 
ma de posibilidades en programas 
educativos. 



El Hit-Bit, le ofrece ademas el 
Sistema MSX compatible con mas 
de 20 marcas distintas. 

Tambten un sistema de notas 
musicales que le permite crear sus 
propios efectos o componer una 
partitura. 

Pero aun hay mas, el Hit-Bit le 
ofrece no tan solo la posibilidad de 
crear y realizar graficos, si no que 
dispone de toda una serie comple- 
ta de perifericos para que su orde- 
nador se conviert3 en algo real- 
mente serio. Solo Sony puede ofre- 



cer en un ordenador de este tipo 
tantas posibilidades. 

Sin compromiso alguno. En cual- 
quier distribuidor SONY pueden 
presentarse mutuamente. Seguro 
que se entienden, piense que el 
Hit-Bit es de SONY. iSe empieza 
ya a imaginar lo que es capaz de 
hacer? 

Hit-Bit. Ya sabe, para lo que Vd. 
y su familia gusten ordenar. 

ORDENADOR DCfcESTICO 

HIT SIT 

SONY 






ii leera enseguida). 
den "Y" le hace pasa 

-ute del vuelo 

|VFR) jI vuelo eon 
(IFR). Ensiydo y siiuc 
le en poslcion IFR. 

3- Li orden "X" acciona el asien- 
to proyeiuble. Desgrauadamentt- 
los limbics de lanzamienlo no tiin- 
eionan mas 4ue 1 de eada HI vece 
4. Lj orden F/FRF.Q le perml! 
regular la radio en las rVccuentusd. 
seadas para dialog, sea con h Ton 
de Control, sea eon el Centre ( 
Control Aereo (CDC). La frecoenti 
jjada jqui es 133. Para moditicarl 
" le su tablero d< 

:me."Vudva a K 
j en !33 antes d 



10. EI cakulo de abordo: Senala 
l.i .llliiud, Ij velocidad v disuntj.i del 
objetivo escogido pot O/OBJ, En el 



ir.i D (y el lestigo defaajo) repre 

el indicator dedespegue. Li letra Ly 

SU eorrespoiidiente testigO el ind 

dorde Veloiidad limue. Sli luiku 



£xc(uaitK> pana lectone* de /"yXX 
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LA CASSETTE O CASSETTES RELACIONADAS A CaNTlNUACION 
EL IMPOHTE LO ABDNAHE : 

*OB CHEQUE — COVTOA HKEMBOLSO ._ CO\ TAHIETA UE CREDTTO 
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M MAS GflSTOS DE E 



Sinclair ZX Spectrum 

N-I enVenta! 




LIBROS PROGRAMAS 

Todos los tftulos Los uttimos 

para lodos los best-sellers 

ordertadores 



PERIFERICOS 

Impresoras. 
monitores, diskettes. 



CREDITO ENVIOS GRATIS 

Facilidades de pago A PROVINCIAS 
hasta 36 meses" 



MADRID MADRID VALLADOUD BILBAO 

S~^, Puerto Rico, 21-23 ?**"■ Huidobro, s/n. Juan d e Juni, 3 

,i^-SZr^s£ 28016 MADRID C, 1»S, .'.".'IS'oS 9 ' 2 VALLADOUD Alameda Urquijo. 63 ^ 

' ■ 91)2507404/02 28023 MADRID Ta | 334000 46013BIL8A0 
Tei .(91 1 207 03 20 



csjO AMSTRAD CPC-464 




SV-32B: 32 K ROM - BO K RAM 

CP/M. Basic Microsoft ' P.V.P. B7.500pts! 
SV-318: 32 K ROM - 32 



M £ S™ am P ,iables a 128 K Procesador 32"&ts MC 68000 Display 9 

L* mayor bibliolK* 178.949 pt... 



Impresora StargeminMOX .. Joystics 

alta competicion 




SENSACIONALES OFERTAS PARA 

USUARIOS DE VIC-20, ZX-81, ORIC 

DRAGON, etc. 

INFORMESE EN "CHIPS & TIPS" 
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L CASTILLO BNDIAELADO 
COWBOY 
BAXDn 
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It. F " 
tido". 



. O "able 

o: ,,| Entra 



-r. Ei 



utile Hori/nmc: las 
Bsonasociadasjel. 
.'ntidoimcrsoagui.is 



rrespondiente del nu 

SllU.ldoS ,1 1,1 dcil'l I I.I 

D. Virile desde 

clones (maniobras). Ver unidad de 

Instruction numero 2. 

21. La orden numero 9 REAC- 
TOR: Acciona Ins reactorcs. CiJ.i 
reactor (izquierda G, dereeha D) v,i- 
ria su potencia entre y 9. Cuando 
los dos react ores csi.in en 9 la Post- 
com bu si ion 1'pucdcsituarseen valor 
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a) Enlrar 
en pjrpjJtJ b) Introducir 
descado. Se adjudica autoir 



-=3^;^. 



--Wi 



mjento cxacto es descrilo en la 
Unidad de Instruction niimero 2. 

18. A la izquierda la nrden I VO. 
acciona los.//,,/.,. : 

Funcionamiento: ,i) Entrar"!" lit/ 
de cambio dc direction (paip.ideal. 
btEmrarehiunierodeejadoseseoyi 
dospara los //,</'■ |ciu re (V y hi)"!. 5us 
p.mieulandades estan Jeiemas en l.i 
Unidadde Instruction numero 2. 

19. Laorden.iPa.Acuonaelpa- 
de t'reni 



dc luncinuaimcnlo se ilumina. I..1 se- 
aundaseddjudicaalrcactoi derecho, 
St unorfelosdosvalorcs.es inferior a 
u l,i orden se cxtmgue al no aleanzai 
el valor de post-corn busl ion. TPM. le 


Escala .iiiniemada = 1 pixel - i 

En rcsumen una regla simple; para 
aetivaruna orden. aprewsobre la le- 

irao el numero des^nado liasta que 


da l.i tempera! ura de los reactorcs, 
1 -)Correcto.(+)Peligr«so. Lasparti- 
cularidades dc esie euadrante estin 
descritasen la Unidad dtlnsmicctrin 


parpadee a se ilumine. Excepcioncs; 

E, no p.iip.ide.i pcro eteiiua un sim- 
ple desplauamiento del cursor; 2 Fry 
I Pa, parpadean muy brcvemente. 



22. Cuadrante CARR: Avisa la 

c.inlidad de eaiiiurantc que le qucda. 

Los depositos P I,2y3 sonlosdepo- 
sitosdeKeroseno.Eltesiigoazulde- 
bajode t.id.i unode los depositos iri- 



dic.! 

(particularidadesdeseriuscn l.i 

dad dc tnstnuxion numero 2). 

2.!. A la izquierda l.i ordi 



24. La orden Q/tnclinacicm. au- 

proa Ide 1 a 1''). 

I : uiKMnamicnu->:j)Enirar-D",el 
cuadrante parpadea. bl Enlrar el nu- 
mero de grados que se desec gir.ir (dc 
1 a 9"). eJAprelarS uU.segun el sen- 
tido de rotacion eseogidn. 

25. l.atirdcn0liis. Activaclsis- 
lem.i de navegacion por inercia. Ae- 
cioik ■!.[. El panel que aparece lleva a 
la izquierda el rttppelAc las frecuen- 
cias balizasyrVecuenciastorredelas 
dus h.i>cs aereas. Al centre su velot i- 
dad v su direecion actual. A la dere- 
ehasuscoordenadasX.Yyunrecua- 
dro que represenla el aumento dv pi- 
xel ds, las coorden.td.is INT(k), INT 
(y). Vd. es el punto del interior. Para 
pedir el Mapa, introduzta cihoihcs 
"C. 



Unidad dc Instruction 2 

2.1. Caractcristieasiecnicasdeun 
aparato. 

2.1.1. Vcloeidad de despegue. 
t erca de 600 Km./li. en 100 metres 
dc altitud. Auilicni.i con I.! altitud 
(pueMiiqueladensidaddclairedis- 
minuye), Cuando la vcloeidad real 
noes superior al 10% en lavelocidad 

ile despeyue. el avisadoi de despeguc 
p.npadi.i.Cuando.acbaio la vcloei- 
dad de despite, cmpiezj a picary el 
les[ii;o de ilcspei; ue (D) parpadea .) su 
vez. Ames la altitud disrn tn uye lenta- 



I'ata 



■-pren 



ud.ido 



I.as bases 



indicadasen 
|o bianco si su aparato se en- 
tra en su perimctro). Su aparato 

i ii en Ira en el pun In parp.ide.ui- 

anco de coordenadas INT (x), 

ly). 

ra acccdcralanalizadordeZo- 

s sulKienic con prcsionar 



i. desc 



aUni- 



dad dc Instruccion numcro 3). P.n 
miIvii al tablero principal deabordo 
entrar dc nuevo. 

Mapa Escala = I pixel = 16 Km. 



de una vcloeidad equivalent a 900 
Km. h. (variable sejum el ingufd dc 

voeadV.s ll I S)! 

2.1.2, Veloddad limitc de estrue- 

lura. Iisi.i eerca de 2.51HI Km./h, a 
IOGm,dealritud.AumenUconlaal- 

Cuando la vcloeidad real noes in- 

Icnoi ,i un |0"„ Je la vcloeidad Imiile 
el avisador correspondienle parpa- 

Cuando la vcloeidad limile es so- 
biepasad.i.el metisaie Alerla Icnipe- 

i.iiur.i i«ta!» aparece. 

la resistencta de los metales no 
permits miihhi.ii muehas alertas. 
Despues el avion ser.i incontrolable, 

2.1.3. i'eniperaiura de null/. n ion 
delosreaetOfts.a)Cuandolaveloci- 

d.ld c> denl.lsi.ido baj.i Ins lesli^os p.l- 
san en "— " (culriam icnto uisu]'n.icn- 
te). b) Cuando los reactorcs nancio- 
n,in deni.isi.ido con Posi Combus- 
iion. Ins testigos de icmperalura pa- 
s.in " + ", despues si el sobrecalema- 





v • > 



tud. 



.oninuia los cestigos de buen 
jmienioparpadtan..Sino,rc- 
reactoresa8(©9sinPC}yha- 
icton .HUom.iiitJ. Pucde vol- 
eneender despues. c) Los 
s pierden ruerza ton la dlti- 



2.1.4. Numero de G: en viraje o 
despues de una variation de position 
(ordenes 5 a 8) su avion encaia una 
aceleracion superior a la dc la grave- 
dad, medida en numero G. 

A panir de H G cntaj.ulas hay un 
riesgo de ruptura de las bomb.is dt 
kerosene (recuadro CARB). 

Hn elcascide una ruptura, el testi- 
go a/ul concern ienic vienc a set "-" 
v la c.mitdad de carburante disponi- 
ble dismmuve en 60 HI. 

ApartirdelOCIaeslrueturadel.is 

icVincunirolable." 

En todos los casos (viraje o varia- 
tion de position) la velotidad es im- 
portant* peto el numero de G au- 
menta rapidaincnic, lo que quiere 
dear que a 3.500 Km. h. la maneja- 
bilidad es muy redutida, Por oira 
pane, un viraje le hate perderveloti- 
dad. 

2.1.5. Limites varios: existc una 
vtlotidad limilt de rodate. No.Kcrri- 

1.000 Km./b. La velocidad de 
nso al tocar pisus debe sei to- 
nomaximode 15 m./s. 1'ieiiseen sus 
mortiguadores. Limite dt alcanee 
adio, cerca de 100 Km. No bay 
[mite para las conexioncs radio ton 
■I CDC. No hay limite para las per- 



nor a LOO Km, y la ahiiud es inferior a 
3.000mv,aceioncl/TLS.Introduzeala 

en lugar de la frccuentia baliza. 
Cuando I/1LS es aciivada. si se en- 
cucntra a menus de 25 Km. de la ba- 
se, su avion aparete sobre la pantalla 
izquierda, radar de aterrizajc. la ptsta 
estanda los dos puntos centrales (es- 
tala: 1 p:.\r/= I Km.). Si ademas la 
treeueneia 1LS esia fijada, la pantalla 
derecha le da su position p/ralefede 
la ptstay p/ren la peudicme ideal del 



alin 



,,-ad<>. 



irta 



■.ii^ ; ::-ii .Vi - ' :f- ■■",'■: ■■"■'$»■ ■'■■-■■'''' 

(Jnidad dc instruccion 3 

Ordenes y protcdimienros unliza- 
bles despues de una mtercepcion 
{version 48 K). 
3.1. Ordenes: 

3.1.1. Orden L. El senuclo o aga- 
n.v/.i con los medios de detensa con- 
tra los misiles adversarios. Dispone 
de poeo liempo despues de que un 
mist! sea dciectado por los radares vi- 
trias. Puede scr neeesario asociar 



cabeza de la pista (BA83 270 RA46 
090).(E!cakuladordeabordoeorre- 

giri auiom.imamentc las desviacio- 



. lis indispensable reflexi 






OEMASIADO ALTO 
V DEMASIADO A LA 

IZQUIERDA 




DEMASIADO BAJO 
Y DEMASIADO A LA 
DERECHA 




s diterenies. 



Jdtiz. 

2.2. I 

2.2.1. Despegue: un poco de 
alerones, reactores en PC, dcie los 
r'renos (no esla rcglameutado despe- 
gar sin la aulonzacion de la lorrel. 
A la salida Vd. esta sobre BA83 
Freq. Torre 133. La baliza esta si- 
tuada en cl extreme de la pista. Freq. 
baliza 114. Acuerdese de la torrc 
despues del despegue. Esta Ic dara la 
trccuemia del CDC. 

2.2.2. Vuelo: siga las indieacto- 
nes del CDC o bien las de la lorre. 
O bien haga lo que Vd. qmera. 

2.2.3. Aterrizajc: Fije la Irectien- 
tia baliza de la base conterniente. 
Cuando la disiancia baliza es infe- 



I.a correction se bait siemprt to- 
nio las agujas del reloj. La pendien- 
It del liaz ILS esta regulada sobre el 
principle de la pista desde que la dis- 
t.muJ bali/a esta regulada sobre el fi- 
nal. Es precise pucs, rcstarcl largo dc 
la pista (2.000 m./ a la disiancia ano- 

enirada dc pista. 



de aterrizaje. aquiel punto central re- 
present su avion, 

Debe delcrmmar la linea a seguir 
para csperar al enemigo, en tuntiou 
de las posic tones relaiivas. 

3.1.3. Ordenes p/inciinado: Tre 
indintioiics posiblts para el radarde 
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personates v* ( BX traon.inano> . usias ias do la "" 




c„rtar« n M""™° r cB08 ,uncto^ 
r0 el aessrroll" « ' rtenK)( ,rB5. 

iswcln'r." 5 *-" „ , eri (encos. 



wfcf" " , cr „,„lom.Mi«,. 



El 



"^Ss;. ^3^W£s 



Entrc "p"-P parpadea 

Enirc 1 para -IS km. Entre 2 

4(, km. Eniri- -1 para 144 km. 
caiiibiodeindinacion modified 



Icl t 



CDC 

l. I. 
el obit 



pixel =2 km. Inclii 
A km. Inclination 

.1.4. Qrden J. 

bre A li.isi.i que lo! 



!.] 



,, punt 
5. Orden 
ccionaA 
adar dt; .ii 



ihgosdepuerta 
uladordeliro 



,.h. 



lemigo ha side dcicciado, el 
dara: 

Unci ,i scguii para consegtur 

altituddclobjcttvoyelTSO 
(ticrape sabre objctivo). 

El 1 SO representa el tiempo itece- 
saxio ji.irj conseguir la position ac- 

lii.il Jl- Li vcloudad actual. 

(niempre puedc ponerse p.ira rehacer 
la plena KttviduQ. 

IX Zona DELTA. El analizador 
(utdcn 'INS dcspues lie A) le 




sa efeciivatuente alguna cosa). 

Carnet de vuclo 

Udlizar estas paginas para anotar. 
cnntorme y a mtdida dt' vuesrro pro- 
gress. Los dim en i oi. indispensable*: 

I. Especializacioncs iccnicas: 

I.I. Despeguc: Vclotidad limile 
de safida dt los alerones. Consurao 
en Ill/tun. Ueno PC. Reaetoresa9 
sm PC. Reaetares a 5. 

IX Aterrrzaje: 

Altitudes ideaies en: Principle de 
pisia + 15 km. Pendiente dc acerea- 

Principio de pista + 10 km. V?. 

Principio dc pista + 5 km. Velori- 
dad ttttmtt. 

Priudpio dc pisra + 1.000 m. Tuci- 
dor dc ruedas. 

Vdocidad dc dcspenuc j menoi dc 
1.000 m. Alerones 10 grados. 2 35 
grados, 2 hi) grades. 

-A.i'i.'ddcluMdcalcLd-pairulla. 
-Vcloudad de los ideales dc pa- 






imllas p/r 



Aim ml media del generador dc /o- 
i.i. Latitud media del generador dc 



.1.7. Orden 0/INS: Cuandoun 

migu li.i aitio detectado poi el 



da en la carta pur 


mi punto parpa- 






3.2. Procedimie 




J.2.1. Dcspucs d< 


despegut : I la 


mad a la [one pa 


I u-oiiocct l.i fre- 


cuencia del centre 


dc control. 


U.2. Conexioi 


es eon el CDC; 
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BBS?" 


fffflf™ 


sinaleroWes ' 



























Lectores 



Pregunta: Soy un 
chico de 13 anos y 
posco un ZX Spectrum 
16K. He intentado 
dibujar un gratico v 
grabarlo con SAVE 
"xxx" SCREENS y 
!uego ijrgarfo con 
LOAD "sxx" 
SCREENS y lo unico 
que consigo cs que 

amarillas y negras, 



Respuesta: Los 
pasos qui 1 has seguido 
par.: grabar y cargar las 
panlallas son correcttH. 
Comprucba bien las 

dc grabar y de cargar, 
pues te arriesgas a no 
almaccnar o a pcrder la 
mibrmacion. En caso 
dc que le vuelva a 



Pregunla: tSon 

i oinpjribles, o mejor 
ditho, sirven los 
i-iisfi-lles del Spectrum 
I6K para cl dc 4BK? 
liQuc es cl codigo 
maquina, y en que se 
direrencui del BASIC? 

F.C. 



Rcspuesta: Los 
cassettes del Spectr 



sirven para el de 48K, 
excepto tuando la 

tima indique lo 
COntwio. Algunos 
programas para el 
Spectrum IhK no se 
ejecutaran en el de 
4HK ya que vicnen 
preparados 

primer modelo. Lo que 
no se pucde hacer es 

i,n.wn,'<: del Spectrum 
-INK Li, cl de 16K;no 
entraran de ninguna 



codigo maquina 
las mas clemenia 
en realidad la un 

-cerebto- del 
ordenador nos 
entienda. Es erro 
pensar que al Ira 



cl BASIC scii.iduec 
a codigo buiario. En la 

a del iirdcn.idur 



existc un program. i que 
se encarga de 
mierprctar rudo lo que 
indica 



este programa se le 
denomina "Interprctc 
BASIC. Tr.is esia 

introduction podra 
Lomprendcr las 
direrencias cxistcntes 
cmrccl BASIC yd t/n 

fundjinentalmciuc, soi 



squc 



de tra 

1) ' Veloeidad: Li 
programas gencrad. 



300 



BASIC. 

Para algunoi program 



fundamental. Por 

ejcmplo, los wegos de 
salon con 
persecutiones 
endiabladas estan 
hechoi en c/m. 

1) Memoria: E] 
becho dc utilizer 



ible. 



iflflTCHCN 

ya que un programa 
rcali/adocn BASK: 

que otro en c/m. Esto 
se debt a que uida 
cci6ndd 

en BASIC sc 
inierpreiar, es 

en BASIC g. " 

general pod: 



pl.^r.Li 

ha de ii 



En 



rendim 



3 dc la 



i utili; 



.i) Trabajos quf 
se deben realizar e 
BASIC. Hay una se 

J. trabajos que 

deben dcnui en 
BASIC po.qucMt.; 

ordenador para la 



equivalents 

ejemplo de 

inliT/Ming, e 

rclacuin.idi' 



dc 



e let I re 



<Hay posibilidad dc 
acenruar las Ictras? (Se 
puedc represcnlar la 



Rcspuesta: No hay 
ninguii problema para 
representar las letras 
accntuadas oi lampoco 
la lelra fi-, todo es 

los graficos de'fmidos 
por el usuario. Se 
crean de la misma 
forma que se hacen los 
dibujos de los 
•■marcianos" y demas 



pantallas que ocupa u 



romrario'. P p'u"bhcais los 
mas cortos, para que 



Rcspuesta: Cuando 

programa lo hacemos 

independencia dc que 

espacio, lanio en 
paginas como en la 
memoria del 
ordenador. Pero 
todavia t-stamos 
esperando recibir el 
■' programa del siglo". 



Lectores 



Pregunta: Mc 
gusiaria, si fuera 
pmiblt-. que me 
indtcaran la forma de 
abrir un fichero de 



i .irnptJi, 



a por 



Respuesta: En cinta 

cs diluil, por no decir 
imposible. fa que las 
insirutciones OPEN, 
CLOSE, PRINT , 



del funcionj.mien.to del 
micro drive. Los 
iromandos cfcctuan 

de abrit un canal, 
cerrarlo, transferir 
informacion de un 
lugar a otro, etc. A 



!MO ; -\:^N.r" 



ill W. "*' 

Comentarios: 

Lineas 10-40; 

Imprime los ritulos e 

inicializa las variables, 
Lineas 50-120; 

Emradj de datos por i 

teelado. 

Lineas 140; Abre el 

buffer 4 hacia el canal 



fichero. 

Lineas 190; Graba 
una marca de fin de 
fichero "EDF". 

Lineas 200-210; 
Cierra los ficheros y 
finaliza el programa. 

Una vez creado el 
fichero en microi/rive. 

Listado 2 para 



Pregunta: Me 
gustaria saher si hay 
algun programs para c 
ZX Spectrum 48K que 
pennita conectar a! 
ordenador aparatos 
domesiicos para que 



m Soi'i! ,"'!::.■■■■%"'.'■.. =■ Respuesta: Lo que 

J t s . ........ m*ium buscas ya exisle y se 

ill Styi 'WiT-nSi w m .» denomina controlador 

"™ ,: • .-. ■;;-«»;;, domestico. Funciona 

flit Pag"™"'' " - ■ • " ii,;.h.::ii;. •■■<-■ j ■■ -.I'.K :-:.■■ 

;;•.■: ''-;';'.. IV"' '•'""•'""' " tarjeta de expansion 

:■- ■■ del Spectrum, de 

^■■- ; ;j\ir* """ "" '** donde Ioim bs 

iSj;; i!r.- ;.:J".- ..>.--■■■ impulsos segiin el 

■*;«;»' 1 ''™ '«' ESKSK.K. programa que se haya 

v , , n. efectuado. Con el 

;;-;.:•%/; .:_ rj f '* » i ; ■ | ■jj,; podremos conectar 

:.,'■ HEM *•'*' a •"■" , despertadores, alarmas, 

■; . ■ :,■...'..-;'■" lucesyun largo 

;•;"""■."' ;.•■--? t , m etcetera. 

|fp.a". 3 

Comentarios; 

Lineas 10-40; Pregunta: Qucria 

Imprime los titulos e que me respondieran a 

inicializa las variables. una pregunta: (la 

Lineas 50-130; Carga impresora Seikosha 

e) fichero Telefonos" GP-50 necesita , 

del mkrodnve 1, interface, o se 

Lineas 140-1090; El summistra con el 

ordenador visualiza concttor necesario 

todos los elementos del para ello? 
fichero. 

Lineas 2000-2120; El A.L.B. 

usuario introduce el Malaga 



no necesita de ningiin 

ya que unli/a la mism; 

igual que Ij pequefia 
ZX Printer. Ademis 



undos 
j telldras que 






prolongjndo 
vida util. tEs 



Pregunta: Un amigo 
me retomcndo que 
adaptase un teelado al 
ordenador para que las 
teclas de goma del 
aparato n 



conipra? 



Respuesta: 
Indudablemente un 
teelado pTok-s.io.mil, sea 
de la marca que sea, le 
vendrj siempre bien j! 
Spectrum, yj que con 
el tiempo las ietras y 

perdiendo. Si piensa 
utilizar el Spectrum 

aconsejable su conipra, 
de lo contrario es 
mejot adoptar la 
»tecnica" que sabemos 
utilizan algunos 
lectores: coloean sobrc 
el teelado un plastico 
transparente para cvitar 
su desgas 



;issjM«SSY£s 



numero .interior sobre 

l.i posil'ilni.id de 
recibir en Esp.ih.i las 
preWUOS que pudicran 
i.! irrcipi'mdei'le lii l-I 
Un, Dos, Tres en su 

ingleses y csp.liioles. 

imposibilidad lcg.il dc 
enviar los regalas desde 
Ingl.iterra a Esp.ina 

!j correspond iente 

Iilchli.] de importation 
y corre con los gastos 
que se denven dc ella. 
• Complacido'' Bueno, 



Pregunta: Me anim 
el hiilio de ver que 
una idea espariola y u 
program.) cspahol. 
como el Un, Dos. 
I res, se venden en 
otros paises y por estj 

programacion y en el 
Jci.iMollo dc juegos 
para ordenador, 
cnlotandolo como 



el BASIC -Podrian 
sugerirme un metodo y 

biblioiir.ifia rclativa .il 
Spectrum? 

L.A.P. 
Cartagena 



Respuesta: EstamOS 

onvL'imdos de que la 
ntorm.iticj, en todos 



aba 



aspect 






hab. 



dipnoi 

orgulloscis d' 
wibuida, en 

I dc oiros muthos— 
le un mayor 



Rcspondicndo ya i 
tu pregunta, te 
anticipamos que el 
metodo te Io 

Nosotros te dames uv 
tonseio que. no por 
rftetido, deja de ser 






ease de sodas I. 
e.imbia impresione 



i espe. 



personas de 
alidad. 



La bibKogratia para 

programacion de 

graikos animados 
pndria sei Los Colorcs 
y los Gralicos en el 

Understanding Your 
Spectrum, Curso de 
Introduction al 
(Indian M.iquina Ron 
ensamblador. mcluido) 
) I.cnguaje Maquina 
en tl Spectrum. 



lendai 



rlidad^ 



ensamblador, un 
disefiador de erafkos y 
un Tool-Kit, Por eotreo 
aparte te m.indamos 
m.is referencias que 
pueden set de tu 



Pregunta: I 
adaptation* 

programs de 

parete una bi 
y el [uego en 



toil r, 



a de amsultas ei' 
sta. Mi pregunta 
speuoal Un, 

relativa a 



Dos 

la Gran Pinal. (Que 

dondeseom.im/.M.i: 

•Como puedo 

emcrarme si tengo 

dereel.o a alglin 



Respuesta: La Gran 
Final no se ha 
celebrado ami y sera 
puncuairoetHe 

revista. En ella 
partitip.irjn todos los 
que hayari tnviado sus 

participation. 

Los eoneursantes 
sabran si son 
ganadores de premios 
median te las oportunas 
list as de ganadores que 



Todospcct 



Pregunta: En la 
tarjeia dc partitipacion 
del p nigra ma que he 
ailquirido tigura 
impreso que el eterre 
del lutgn es el 20 de 
diciembre de 1984, y 
puesto que yo Io he 
tomprado el 26 de 









1 



esperamos que la 
respuesta sirva para 



Gran Final lia quedado 
postergado para tinalcs 
del mes de marzo, 

edi tores. Con toda 
seguridad, en el 
proximo niimero 
entomrara la fecha y el 
lug.ir donde se 
telebrara la Gran Final. 



Pregunta: F.n la fase 

de la li.ibilid.iJ, y al 
tirai dc una de las 

siguiente mensaje «llas 
encontradola Have que 
able-, y nr yo in mis 
anngos sjbemus lo que 
abre ni a que se refiere. 

F.M.R. 
Somosaguas 
Respuesta: La 

mucho gusto te lo 
atlaramos aqui. La 
pareja que en esta fase 
consiga la Have tiene la 
option de -ver- que 
prenno se oculta tras 

matasellos. La entrega 
de premios se et'ectuara 

y esc es el tiempo que 
hav para impugnut cl 
resultado si eonsideras 

que tu tana es anterior 
a la de uno de los 
ganadores anunuados. 

Con respetio al 
prcmio que se llevarian 
los ganadores, solo 
podemos anticipar que 




fnnuii.i. Para dlo 

L y cl Spectrum les 
.i uue regalo hay; s: 
.itcpt.in d 

computador da par 



pai 



uno de los cinco 


es dc lo nicior. I'or 
uliimo, queremos 


propio mmpulador 
ic.di/.i dc forma 




inrbrmane a ti y a 


toialmente okatoria. 


referenda el programa. 


>«ms usujrios que auu 




■: Podri-iii inkiimarmc 




□robabilidad Ins padre 


acerca de dlo? 




dejuan y Victoria se 




rcsput-slas 


ban lavado las manos. 


i.G.r. 




Bien, seguit las 


Erandio 


Hemos rcdbido una 


normas del concurso. 




llarnada iclcloima que 


el beneflctano tie (odd 




por su simp.uu v su 


los premios es el inula 


Rcspucsla: En Hi 


interes reproducimos, 


de la tarjcla tie 




km y Victoria son 


patticipante y poresta 


inloinurlc que [a 


kornianos y nos Hainan 


ra/on se rccomienda 


solution Hi) era la 


preguntandonos a cual 


llt-iiar a uu atuertlo 








vuelve sobrc dlo y 


corresponde el rcgalo. 


premios antes dc 


irata tic resolverlfl 


sciiiirn itiic ligura en su 


umilui.r el iuego. En 








Qucreraos adarai que 


proviene. al parcel, de 


eiuarj;ii exprcso dc 


los ganadores serin 


que Juan es d duerio 


1'apa Noel, lanto |uan 








Final v la prioridad dc 


lij S „J U |, ifonun tdi 


redbtran el mismo 


I,,, tanas la estableteel 


en el sonc. que d 


regain. 



IllfeiO 




REGISTER LATELY 
CONTINENTAL, S.A. 
Balmes-297, pral. 2" A 
BARCELONA-6 
Telef. (93) 200 18 99 
Informacion: Sr. FERRER 



NUESTRA EMPRESA 
AL SERVICIC DE TODOS 

DEPARTAMENTO COMERCIAL: 

— Microprocesadores y ordenadores de gcslii>ii (gams 
Commodore) para el particular y Empresa. 

— Programs etlije-iN 1 . ■>>. Je ili^ ll. is y iIl- dili'l'iinlcs ;i plica - 
cioncs. (Genidn, contabilidad). 

DEPARTAMENTO DE ESTUDIOS: 

— Cursos Programaeion Basic y Cobol. 

— Cursillos de grabacion. 

— Practicas con ordenadores y micro en la propia 



^/Miguel Vuste. n. ■ 16 - 2B037-MADRID ■ Tell 204 51 9B 

SINCLAIR SPECTRUM 

— Ampliaciones de memoria 

— Reparaciones garantizadas 

Si su SPECTRUM SE CALIENTA 

(Menos aven'as, mas duracion, 
mejor funcionamiento.) 

TAMBIEN 

COMMODORE, 

AMI, COMPATIBLES 

APPLE E IBM. 



INTERFACE DE DISCO PARA EL SPECTRUM 

La mejor noticia para los poseedores de un Spectrum 



Al fin los usuarios del Spectrum pueden 
lograr que su computador alcance la 
operalividad y velocidad que sdlo el 
sistema operative- de disco puede 
proporcionar. 

Gran capacidad de almacenamiento, 
tulgurante acceso a los datos y mayor 
flexibilidad operativa. 

Cintacasette 



La respuesta para el usuario del 
Spectrum. 

El interlace Beta Disk, se conecta detras 
Spectrum para proporcionar una compat 
inatanlaneacon cualquier unidad de dis< 
Shugart. De hecho puede Vi 









Ml! O'.livr 



o operar 



■mpletai 



Sislema completo 

El interface Beta disk deSilo 

inseguir. de forma 
■ficiente puestaen 
Interface se acomparta 
que le permilira, en 
rormaexlremadamantesencilta, efecluarcopias 

progra. 
deundiscoaotro. Los comandosde SAVE y 
LOAD son totalmente compaliblesconel 
Microdrive y con el disco pudiendo dilerencia 
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I Avda San Narciso. 24 (Gerrjna) 
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Comentarios 



EDUCACION 



Los 

un apariadti relegado a 
un segundo plant) por e] 
publico en general: los 
programas educativos. 
Bajo este titulo se suelc 
encuadrar un heteroge- 
iu-0 grupp de progra- 
iius. desde los que nos 



Los dos programas 



Programa: Mil Cams 
Tipo: Educativo 
Distribuidor: Ideologic 
Formato: Cinta de cassette 
Ordenador: Spectrum 48 K 



Bajo el nombre del 
■Mil Caras- se jgrupan 
unj serie de juegos basa- 



pjsan muy bien). El pro- 
grama, a la vez que di- 
vierte propomona unos 
valiosos conocimienios 
basicos sobrc programa- 
cioii y mjnejo de las te- 
clas, ademas de ayudar 
al desarroilo de la me- 
moria y las capacidadei 
de con centra ci6n, eLes 
parecc poto? 

La cinia viene dentro 
de una gran pciaca de 



Un.i vez abierta (opera- 
Lion algo misdiheildc 
lo que pare i'. yj que Ij 
petaca d spont de un 
dura ptecinlo de garan 
tia), nos enconiramos 



esia muy bit n rcalizado 


con mrIk 








tad, expli 


andu dctalla 


damente 


odoi los i«: 


minos (as 


por ejempla, 


no da poi 


supuesto que 




sabe loquees 


ph,T u ' 

Una ve 


moqueloex- 


. cargado el 


program j 


d i spoil cm os 



sando para ello los dis- 



ordenador pone a nues- 
tr.) disposition. LI pri- 



apare 






e Lis disi 



variedades dispom- 
bles pjra esc elemento 
(porejemplo. para el pe- 
pelo ri/ado, pe- 



lo rubio 



c.) pu- 



diendo elegit 
de ellas y el color que 
queremos que lenga. LI 
programa posee una 

gran vcrsaiilidad, y nos 




efblfi 



que 



nos puedan pasar por I 
imagination en base a 

muy seiiLillos di usar. 
La segunda opcion 










programa consiste en el 
luego propiameme di- 
tho y tonsia de todos Ins 






. Si alguno de us- 

on», ya sabra la taclica 

del iuego. El ordenador 
nos va pomendo gesios 
que debemos repetir sin 
■ La pn, 






silo. 



; pondr.i dos, y asi 
sutfsiv.imenie basia que 
lallcmos alguno. Esta es 

parcce muy faci 



gesioi 



lelve 



ade 



par J poder resolve rlo, 

Et program.! esia muy 
bicu (erminado, siendo 
muy divertido pjr.i los 
uiiios. que Jo aprendcna 
maneiar eon much J ra- 
pide£, jugando durante 
horas. Si nosabeque h.i- 



PUNTUACION: UTI- 
LIDAD: 7. PRESENTA- 
C10N:<J. CLARIDAD: 
8, RAPIDEZ: 7 



Programa: Teclos Divertidas 
Tipo: Educativo 
Distribuidor: Ideologic 
Formato: Cinta de cassette 
Ordenador: Spectrum 48 K 



jugador tabs bastame 
abecedario como para 



a debemos tedw 
s de que desapar 



,1 sisuhnti a:*H 
lidad w puede pa- 



El st-gundo ; 



1 



vd: 

hay q 



.i pantalla. En e 
mper' 



.■speu 



in rapid a- para po- 
bre. Como en el mvel 
■Jl.i -peual er l.i JU" 



obrelr 



apare 



debem 
,1 e* • t« 



i-.l terecr ruego realiza 
un protest) inverse al 
anterior. En la pantalla 



Este progratna ofreee 
una serie de juegos para 


pantalla destienden le- 








que los pequefios pue- 


bemos deslruir. La dile- 


















dalfabetoa Iji vezquese 


,il|U1 un nos servimosde 






^_ 


divierten con uuos pro- 


unmandoconbot6t.de 




t^^^M 




granias de gran acci6n. 


disparo para cumplir es- 








La presentation, .il 


ta fuiuion, sinu que de- 








tjsu.il que el resto de los 


bem.is pulsar la tetlade 








programas de Ideologic, 


esa letra antes de que la 




h^BMI 


HIKHII 


esta timy bien lennin.id.i 

induvendo un manual 
de instructions com- 
plete v fad! de leer. 


























Una vez cargada la 


MHHMMM 


.ilyunas 


ifercneias iun- 


debe tcckar rapidamen- 


dnta. el ordenador nos 










da a elegir entre uno de 




inasdiiit 


1 la victoria. U 


Jieme .1 es.i pj Libra. Co- 


los ires |uegos diteren- 




palilalia 


st.i prtseiilada 


mo es habitual, existe 










una pantalla especial en 


dad del juego, que in- 




a in en or; 


pero aqui, en 


la que solo sedibuia p.ir- 






ve/ de t 


er leiras, , jen 




l.i dilieull.td que tehdr.i. 




obieios 


para destmir- 


.lomasdifieilsuidcmili- 


Unavezhechoestoeni- 




los debe 


n.s escribii su 


lil programa rieneuna 


pieza el juego elegido. 






d primer, nvel 


Los ires estan en progre- 






tbre complrto 


estupenda presentation 


sKiu de difieultad, de 


que b.ii.i por la palilalia 


in losde 


nitnivelHtlo 


y destaca que el manual 


modo que a los njnos no 


saiga por la pane infe- 




■mbres son de 


y el programa estan tr.i- 


les resuhe ditieil pasar 


rior. De este modo se 


iii.ilro i 


tinea letras. 


duudos al castellano, 


de uno a olro. 


dprende rapidamente el 


tranquil: 


ese, no hay 


haciendo su compren- 


El primero de los ires 


m.ineio del ledado y la 


ninguno 


al L'siilo de 


sion rapida para el piibli- 


nos presents una situ.i- 


siiu.ii urn de eada teda. 


"ptcroda 


tilo..). Auui ya 


■ co al que esta destinado. 


don similar a la de los 


El iuego results scntiiio 


se deben 


asociar los oh- 


I'UNTUav.iui^: uTI- 


juegos de marcianos que 


enbsniveles.ly2.pero 


jetos a 


us nombres y 


I.1DAD: 7 PRESENTA- 


hemosvistoiodal.i vida. 


si nose esta aeosiumbrj- 




debehacerri- 


CION: 9 CLAWDAD: 


Dela pa rte superior de la 


do al tedado de la ma- 


pido o e 


objeio se per- 


4 RAPIDEZ: b 



1 


Libros 






















Et BASIC iJusfrodo 


„ ,„„ roulu 


conversion tie mimeros 


it.ki.in de juegOS 
jropios. Este ultimo 




Un sencillo 


Jt agradablt et tui ] 


romanoa y anilisis 




lenguaje de 


embargo, puede 


Tambien se incluye' 


eapitulo no tontiene 




programacion 


est ii diticil pjr.i los 








Donald Alcock 


iguaimente ledtuido, 


■slos v es de aran 




Ed. Masson 


.i quicnes, 


sobrc los trpos de 


uteres para quicnes. 




134 pgs. 


, :-'- , ! l;V-.-';V; l ]:b-o). 


artlnvos de datos mas 


alios de imagination. 




El BASIC, ese 


aracter de los stados 


lo general! buena"' P °' 


^beT'qu^ haccVton 




lenguaje que se emplea 
en ■mieroordenadores 


ic programas 

os libro- -,'- BASK 


atmque tafttpOCO hay 


Los programa! 














cap.'tulo cornandos y 




■ordenador bucleado- 






un libra m.is. En esta 
ouiion ilusir.ido. 


£ 


libro Je Jiuiig.iuon 






caliricativo con el que 


22213 


del BASIC de i.iul 








suporlemos que Alcock 


1 1 'inpii.n-ioii v leelura 








se quiere referir ,1 los 




agradable. 


■V 1 .* M 






dibujos y graficos quc 


'KMiHE) 












^ff^iSJf 1 


El libro gigante de 








information sobrc los 
sisiemas mas com tines 


SB ^ 




de este popular 




los /uegos pora 






lenguaje. Entre ellos 
llama la atencion la 


SS&4S22 


ordenador 
Tim Horfnell 


Ju£§os,_ 






"bug. [en ingles 


■ m 


Ed. Anaya 
Multimedia 
362 pgs. 


ordenador 












nombre , l« promo. 

de debugging 








depuraeion, 










prceiiamente por scr 


nngun ordenador en 


Cuireiiti v cuat-ro 


in IBM PC y 




uno de escos pcquenos 
animales el motivo del 
nombra dc un 
programa. A In largo 


iste caso ha tnotivado 
jii.1 referenda baatante 


j uegos totalka este 

-libro gigante* de 
Hartnell, uno mas de 


simplificados 
sosienormeii.e a] 
naamo para podeer 
eorrer en tualquicr 




de Jas cntretenidas 134 


ormato dc las 


NobreViVomritii-l one 


ordenador. 




paginas, la cucaracha 


nstrucciones mas 


b.i lanzado 


ista tactiea 






asuales para las distintas 




cs bastaole ulilizad.l 




Jc un programa que 


/eraiottes del BASIC. 

El estudio de estas 

nstrucrione, ocupa la 


editorial Anaya 
Multimedia. 


nas amplio, pero en 
eontr.lpartida debet) 




Aparte del «bichito». 


n.mir park del lihio 


Estos progr.iui.is se 


lacerse las 




Ij caraeteristica mis 


pKiakan do. 


<■iiglipb.ni en die/ 


adaplauonts a t.ld.l 




notable del libro reside 


vaginas por 


grupos: j uegos de 


irdenador (por 
ejemplo, en el 




t-'ii la forma que posee 


iiMrueeion), con gran 


mesa, averttura, 




mas que en el londo 




simuladores, juegos de 


Spectrum no sirven las 




que, viene a scr una 


lasitas, eadenas y 


dados, inteligcnu.i 




repetition de los ya 


nairices. 


artificial, solo par.! 


mm oMID, y esta 




numerosos textos sobrc 


Un breve eapiiulo 


divertirsc, juegos eon 


nepar.ulo para una 




el tenia. Lejos dc los 


obre programa* de 


impresora. juegos 


salida por palilalia 




tipoi dc imprcsion 


jemplos eonlicne dos 


esp.iei.iles, juegos 


nitre .12 y 40 




univesalcs, y liaciendo 


equenos UstadOS: 


"'"'"'" , ' ,l,ul "' 


olumnasj. 







1 



Los programas, por 


Juegos, imageries 


n.iquin.i. imroduutndo 


damas. backgamoo, 


lo general, cm.hi bien 


y sonidos 


■as tarde juegi • en 


black iaik. punms y 


seleceionados y, lo que 
es mas importantc, 
bien comentados. Al 


S. Curran- 
R. Curnon 


vain es del hardware 
e i.iv nuevos 


truces, el colgado, 

dados v doinimi. 
mastermind, et< i. 


m^rgen del eomemario 


Ed. Gustavo Gift 


.tdenadores En esta 


i,ji gos de ma nos y ojos 


Jc (.jif.i programa, cadj 


J 68 pgs. 


volution jugo un 


(tcnis de tclevnion. 


LjpiLuli) incluye una 




lapel fundamental la 


ping pong, imjsi.rcs 


intcresante 




xplotation .:. 


del espac o, pai man, 


documentation 


Uno de los campus 


.ipai idades grificas > 


la una. eii ): i uegos dc 




de actividades con mas 


. sonidos que los 




evoludon desdc cl 


ateplacion y desarrollo 


»dt -n.idi'ii • fueron 




primer iuego manual 


icorporando con •'■ 


de la vida real (los 


hasia cl sotisticado 


ordenadores person a Its 


lempo, Asi se 


simuladores Jc vuelo, 
tarreras, biologfa, etc.). 
En Ins juegos de 
aventuras se incluyen 
los programas de 


programa de 

Asi, en los 
lucgos de mesa, la 
explication del 


es, prcusamentc, ,1 
Itidico. Para tubrir esia 


°°" e "' ""' ma ™ 


faceta dc los 
ordenadores personates 
(domesticos), ban 


JUEGOS, 


programa dc ajtdrez se 
rcmitc hasra el siglo 


aparecido en e! 
meri:ado urn gran 
variedad de programas. 


IMAGEHESY 


simulaciones de ' 


SOHIDOS 


gucrras. aver.iuias 


del Baron von 


Existe ial divcisidad y 




mitologicas, es pa dales, 


Iv: in pi 1 li'ii. lumu a la 


abundant ia ;:uc todos 


*m| 


etc Per ultimo cstan 


i-xpliijuon del lucgo. 


1: rios.dt un 




los juegos educativos 


se mtluyc cl hstado y 


modouotro, uab.m 






diversos cjemplos del 


deduando pan.' de su 




a iraves de juegos. 


icsuhado por palilalia. 


tiempo a su uso y 


mii^^^^w&li 


Dido cl larailcr 


disfrute. 


^Lnm^mm^Jg, 


A eonimuacion el 


general de los juegos, 


En este sentido el 




libro nos ofrece un 


los grarkos son 


libro que aqui 






inexistentes, irabaiandn 


tomentamos puedc 




de realizat grSficos y 


sicmpre con letras que 
represeman las 


resuUar dc gian ayuda , 




Capitulos cspecialmeiite 


diitintas tichas, naves 


ordenadores, ya que 


istosidad y caltdad dc 




espaciates... Id que deja 


presenta un breve 


is programas 
iseftados y de los 


aquetlos usuarios que 


basiante que descar y 


extractode ■ 




t'sigir.i proiundos 


programas de juegos 


iucvos modos de 


propios programas de 




mas mteresames , una 


xpresn'm arttstica 




perlectionistas. Peru al 


information general 


calizada eon 


gestion. 


minim licnipo, la 


sobre las posibilidades 


cdenadores. Gracias a 


Fmalmente, se 


sencillez de la 


..II. . s de sonido de 


sios avances, hoy se 


analizan varios lisiados 


program a c ion y una 


evtas maquuias. 


ucden conseguii las 


dc programas de 


buena estructu ration, 


Se : . -i.ii iftnnar que 


venturas mas 


rudttas de |uegos, 




los juegos de 


intasticas y las 


grafieos y sonidos. 


documentation de los 


ordenador 


ituacioncs mas 


escritos en BASIC y 


programas. logran del 


cvolucionaron con los 


nverosimilcs. 


pensados para que los 


libru un texto 


propios ordeoadores. 


En el segundo 




rctomendablc para 


Lot programadoies, eh 


apuulo se incluye una 


eonotimicntos previos 


indos aqueltos que 


un alarde de 


uia de programas 


de esie lenguaje de 


quieran disfrutar de 


imagination y destreza 


lasdiiados en: juegos 
imiliarcs (juegos de 


programaciou puedan 


una leciura amena y 


comenzaron, desde el 


entenderlos faeiimcnie 


programar sin 


principio, a trasladar y 


ablero, dc cartas y 


V adaptarlos sin 


demasiadas 


acomodar los juegos 


uegos dc papel y l.ipi/. 


dilitultad a cualquier 


comp icaciones. 


«**»*,. k 


° mL,b0 "" ,lJr "' 


maquma. 



Ideas 



Encontrar un caracter 



naiiorZXSU* l6Kesto 
no supondra ningJan 
probletiu. y.t que le bas- 
t.irj uulizar l.i subrulina 
de l.i hiiura 1. De esta 



color v el sontdo se pue- 
den omitir, pero tendra 
que buscat alguna alter- 



llion PRINT X. Y 
1010 LET P = PEEK (PEEK 1 
1020 LET AS ■- CHRt P 
10 W RETURN 



Conversion ZX-81 /Spectrum 

Las versioncs del BA- ZX-81 solotiei 
SLColrecidopoi 



edos 



ordenadores ZX (ZX-81 






.») V 



jchos de 



Spectrum: SCROLL ■ 
UNPLOT.yestos causa 
r.ni mas deun problem, 
al convent! un progra 
m.i del HI al Spcetrun 



litlClOnan e 


i elotro. El ' ve ' 






TAlil.A 1 




ZX -HI 


Spectrum 


OBSERVACIONES 


SCROLL 


RANDOMIZE 
USR 3582 o 
LET 1 = USR 
3582 


Con numeros 

uiili/a/la segunda 
option, ya que con 

la ptiw los 


UNPLOT 
Y. X 


PRINT AT 21- 
Y/2, X/2 


correspondicntt, en 
un lugar 

determinado de la 
pantalla. 



tunciones que posce el 
Spectrum v que no exis- 
tenenelZX-81-Unalis- 



El comando PLOT 
iiparece en arnbos orde- 





TAB LA 




Spectrum 


ZX-81 


OBSERVACIONES 


BIN. p.c. 
LET 
y = BIN 
1001010.1 


LET Y = (n. 
dec.) 

decimal: 
tOOl 0101 = 
149 

128 M 32 16 

8 4 2 1 


BIN pcrmitc la 

binarin. En el ZX- 
Sl bay one uuli/ar 

decimal. BIN sc Qsa 
con fretucnua para 




Se Human las 
citVas domic 


grirkos que no 
existen en el ZX-81. 




existe un 1. 




READ/ 
DATA, 

READ *. 
v DATA 
50. 60 


LET 

LET X = 50 

LET Y = 60 


READ y DATA se 

pragma. Utilice el 

comando LET para 


DEP FN 

y FN, 
p.t. 

DBF m 

= SQR x 
LET i = 
FN aft) 


LET XS = 
"SQR X" 
LET X = 1 
LETT= VA1. 
XS 


cadena. Utilice la 

palabra clave (p.e. 
SQR)- El 
equivalentede FN 

tal y como se 


PLOT 


No tien-e 




ScreenS, 

p.c. 

LET .t - 
ScrecnS 

x, y 


LET A = 
PEEK fPEER 
16396 + 25* " 
PEEK loW 

+ 1 = y = 33 


Se Utiliza en iuegos 

detectar caracteres 
en el mapa de la 
palilalia. Observe 

que esta formula 

cuando se 

coneetada la 
ampliation de 



POKE USR V 





TABLA 




ZX-K! 


Sp.ar.rn, 


OBSERVACIONES 


1 


POKE 


I OS dos 


FRAMES 


23672.0 


orJL-n.Klo.vs ticuen 


POKE 


POKE 


cociwdores que 


16436, 


23673,0 


vjri.ui 50 vcces por 


255 




segundo. En el 
eftmplo, se utiliza 


LET t = 


LETT = 


h prfmwa Una 


(65535 - 


(PEEK 23672 


para iuicializar cl 


PEEK 


+ 256 * PEEK 


rcloi. L.r variable T 


16436- 


23675)/S0 


tendra d liempo en 
segundos despuw 


PEEK 


Para tiempos 


del initio. El 


16437)/ 


supenores a 


eontador solo se 


50 


Ids 10 

el byte 23674 


durante 10 


2 LInea 


POKE 


Convierte l,i 


mini. 


23756,0 


primer,! li'nea de mi 


POKE 


UtilizaTla con 


programs en Hnea 


16510,0 


cuidado si se 


0, que no se pucde 




mcroitme. 


editar, de rnanera 
que esta protcgida. 

Crsaun arcade 


RAM TOP 




sejuiridad en Li 


POKE 




parte superior de Ij 


16388. X 




RAM, comenzando 


-256 5 




en la direccion X, 


CLEAR 




para .ilmacenar, 


X 




eodigo maquina, 


INT (X/ 




eit. 


256) 






POKE 






16389- 






1NT 






(X/256) 







I 









TABLA 






BURP 


lifl 


A 


INK ' 


I'APEIt 


m 




lll-l 






READ 


IN 


i;hic;mi 
c:A1 


IIA 


MAI 


MOV I: ■ 
OPEN 


A1TK 


SCREEN J 



Sentencia Goto 
Multiple 

Por Froiteisco Gal von 
(Madrid) 

mubcion de l.i rimcion 
ON x tit) TO y ON x 
GO SUBdadaporcl ice- 
tor Vicente Mcndoz en 
el niirnero 4 de su revis- 

El ejcmplo dado por 
el. ON x GO TO 110, 
120, 130, etc., resulla el 

Peroeil muetiOi progra- 
m.is pueden aparceer 
lineas como estas; ON * 
GO TO 590. 281), 330, 
490, ton lo tu.il dicta 
melodo no se puede uii- 
li/.ir piiriiut fos numt- 
rosdelfncadelossaltos 
no skuen una progre- 

iii csto se pueden 
ircualquieradelos 
dos meiodos: 

a) GO TO f.W) AND 
X = l)+(280 AND X = 
2j+(330 AND X = 3) + 
(490 AND X = 4)+(550 
AND X = 5) 

b)GOTOS90°(X = 
l) + 280' (X = 2) + 330 i[ 
(X = 3) + 490 * (X = 4) + 
550 : ' (X = 5) 

Ambus son parecidos 
j la Kuneidn ON x GO 
TO, ademas de ocupar 



Es de resaltar que los 
dos meiodos expucstos 



pn. . 



Idea para listen 



Po 


r Volen 


i Carbonetl 
(G.ronaJ 

■r l.i forma 


m.is 1 


til de 




sutt.ld 




iprograma 


saiga. 


Jut'sUS 


ics PRINT 


por LPRIt 


. De esta 


lorm, 


putd 


tenor un 


progr 


m.i m 


e (undone 
ton la TV, 



dos se iiiiprim.m solo 
rtiando nosolros lode- 
secmos. Veanios la 



pnntipio. o in alglin lu- 
y.ir del program.!, l,i si- 
guicnte instruction: 
xxx OPEN -2, -p H 



indox: 






ode 



presor.i y lodas Lis ins- 
iruttiones PRINT que 
se encuentre durante la 
ejecueion del program* 

tmcriones LPRINT. De 

esta forma, todo lo que 
urigiualim-iite se viiuali- 
zaba por palilalia, ahora 



por 






Pa 



stjbleeer todo bastard 
la siguiente 



Esta instruction i; 
hseii luiiLioiupara el 
mando LIST. 



Montajes 



Reloj 



j digital 

para 

rum 



Specti 



El earictei de este interface, si 
bien pcnsddo principal mem e 
para Spectrum, puede utilizar- 
se en cualquier ordenador con saltda 
e sottido sin neecs.id.id de manipu- 
ir en el delicado bus de expansion, 
orotro lado ,il crecersegun las nctc- 
dades de cada usuario se Ic tonside- 
i "modular* io que cl lector puede 
oner en prainca Iras iom.prob.ir su 



HI Girculo electronic 



ii.uliir dc tono, seguido pot una 
pa artfirrebotes y mi Hip-Hop IK. 
'.iij su description detallada po- 



I "f 



^ K 



c r> 



demos dividir el circuito en ires p flr - 
Ks (A, B y C de la %ura l). ; 

m deun inu-nTJik. NE5(i7(.[ut 1,1111*1 
Ij -.cri.il dc 1.1 sjIiJ.i MICdd Spec- 
trum.itrjVL'sddamdcnvid.irCI.I.i 
Silid.1 del Ne567 (pin 8) permaitece 
nonnalmeate .1 nivel .ilto (5V), pero 
cu.iiidoensupin 3 apareu' mij sefiji 



dH.i 



M.idl. 



1, parj 



< P2). 



f 



Bl Constihiido por la sexi 















4 












„ 






5 






ICZ 




IC3 








f 






u 








Ov 












I 





Fig 2 -Vista de los 
intearados y 
denominaoion 
dela&patillas. 




Montajes 



C] Form.id.i 






itjd de an 
747fr. un integrado dd tipoJK Hip- 

flop doble. Cid.i flip-flop posee una 
emrada de relo] (pines 1 y 6) v una sa- 
lidaQ. (pines 15 y I i). A cada impul- 
se de relo,, la salida Qcambia de es- 
tado y permanete en el hasta el pro- 
ximo pulso de reloj. Asi mismo, cada 
Hip-flop tiene olra salida, denomina- 
daQJpmes M v 10] que siempre lie- 
nen el esrado logico comrarioat de la 
salida Q. Por tanio, aunque en el tir- 
tuilo propuesto usjihos la salida Q, 
quien lo desee puede usar la Qj te- 
niendo en luciiu que al proporcio- 

l^alidaQ_c S tatJanivelaho(D2B0 
1 Qalbaio. Si. 



s safiAwQ y Qdel Hip-Hop pue- Ajustc 



Circuilo imprcso 



lei 7 A 7d. 



AllllLlI 






r de ■ 



epodr.. 



.IKoilC 



S(pines2y7)du- 
para for- 



.iii de l.i 
«entill«ded«citodelap!(U.M.Pi*r1i) 

.iddanle el pm S r.im.i BASK.: prcvev 



c pm^ma: 

10 BEEP 10.2(1 
111 GO TO 1(1 



Colocamos el polenciomefro ? 
mud del ffKirmlo. Deipuvs mm 






i..hk 




MflSA 

IN DEL— — 
MtC DEL 
SPECTRUM 



Fig 5.- Lotto delo 



t_PI 






<D 



'* 



■J^iP 



2 K> 



QijZfl 
Q2jjf 



HUB- -Q- I ' 

— llipU B4' 

•"CUE- /^\ 



D£ ' 



l_J 



■ 



10 BEEP 0.1,20 
20 PAUSE 2«0 
Ml GO TO HI 

viceversa) v permanccc en el hasta cl 
siguitnte BEEP. 

Es cvidcntc que utiliwmfo lw fir 
Ulitosdclj SgUM J noi permit* ■.i.n 
el pn.fir.ima BASIC adiunio. toflei- 

PROGRAMA 



SINCLAIR QL 




APLICACIONES 



• BASE DE DATOS • LENGUAJES 

• TRAT TEXTOS • PASCAL 

• HOJA DE CALCULO • FORTH 

• GRAFICOS • ENSAMBLADOR 

jCONdCELOS! 
jAPRENDE A USARLOS! 



VISfTANOS 




World. 



ffik 



Montajes 



l.assubruiinasBEEPso 
la 60 v permiren en este a 

seis canales, pudicndo v 

fundon dc l.is necesidades dc cada 
uno. En cuantoa la variable «t-,esijn 
escritas dc rinco en cinco (10. 15. 
20...) pero, win un ajusie precise de 
PI v P2 put-den estar separadas por 
s6lotresunidadcs(15, 18,21...), per- 
mitiendo para P2 una resistentia dc 
menus ohmios y por tamo un a juste 

Con la I inc a S3, ponemns a cero el 
reloj. si deseamos que este p.iria de 
cero; sine, una vez, el programs en 
marcha. se puede ajustarla hora pul- 
sando la Wcla -a-. 

Desde la instruction 600 a la %0 
podemos poncr las ordencs que dc- 
seemos para el manejo del interlace. 
Escas hneas deben. pur ejemplo, 



adoptar la siguiente formula: 

611(1 IFuS="!-l.tOI(l" THEN GOSUB40 

hlO IF uS="!535l(l" THEN GOSUB 4fl 

Locual. quicre detirque a las 14h 

3 0m in iGsegse activari el canalasig- 

nadoaltono25(BEEPdelmea4Q),y 

que se desactivara lh y 5 min des- 

pues. 

Ahora un par de at la ratio lies: 
Primera. Para poncr en hor.i el re- 
loj debc haeerse imrodutiendo lo.s 
seis digiios torrespondiemes a horas, 
minutos y seaundos; por ejemplo 
"I40300— 14h 03min QOseg. Pero 
para activar el interlace la bora debe 



icribir 
da, asi 



: sin ios 



.dtfafepi 

or. si l.i js.^na 



L'lL'mplo u$="3riQ1* qui 



COS! I. M 
Oseg Oir< 



BEEPlodetiene du- 
rante la cmisicm del sonido, por un- 
to en el program,] se u.san pulsos de 
(M segutidos por lo que el rctrasodel 
reloj cs muy est. iso aunque se ustn 
varias in strut do nes para el interface, 
ya que 100 BEEP de impulso solo 
produce!! 10 segundos dc rctraso. 

Una vez el reloj en hora. el progra- 
ms puede intcrnjmpir.se para hater 

lertaee y luegu volver al programa 
con GO TO 90 sin que el reloj sufta 
atrasos. 

! : n tl Iim.i.:.. i •-,.,.! on. i :. 

IcuccioftH MH> y 6!0 son solo un 
ciemplo y por supuesto pueden ch- 



J»ao,uin 1'aiedcs Pardn 





r. -. 


, 




... 


• ' 


J "~°z 


. - 


■ ■ nin«] '■ 


* 


■■ ■: r- 


270 1 • l"HEN . 3'JE 


1'. 


t-t--- • -•■■•-. (Oi 




N 




- ■ f - . .-j .- ., . . ■;. 




,i ■"■...: • . ■■ - , ■ 


» i:r.i LET S 1 ' u*=h 


N ""' 


. . :-■.■• - 


-.- FtTiJRN 


4i 


BEE ' ■'■•'- ' F - njF 


~n=:-~ F - [NT ■ ' . j 


N S ' 


& "- = ■'■'■■■■ '" lL - £ *"■'■' " ' - 


J.2q: 


N 6 ' 


•-■ ■ • - ■ : ■ ■ 


3 " ,'... ' " 


8L 


■'■..'•- 


-. » IF ■■ bUB 






4o 


— ■ 


C.L5 


6io :■ . i= i ■ . -' ;a sut 


9= 






~T 1 


_-)• .-:' : ■■■-. ■ , .. ..:;■-? 


90a r-c -.- _-.;■ 








i oo 


PEP PN d(a,fac=atia I: - . • 


: I" LEW si 


= a) 




; . c.^' • ' ■:■ ■ 


110 


rj£c fn . . i=iniT •■ ■ 






'fzt- tFEEi ;+pf;ei . 
















l \\" 


■ 


' , : ' : , . - T '256): 


140 


■:■■.: v j 


: ■ ■ ; ■ -_■"'".. 


zoa 


LET D =PN t! ) J LET *=£) 


2l POKE _.'..." 




LET. p = FN t()i LET t =D 


I '.;■ RETURN 



Usuarios 



ZX visito 
Zaragoza 




En csia ocasirm nos 


raientos sabre losdisnn- 




desplazamos hasta el eo- 


los lenguaies y comn, 


su intention no era 


azon mismo del Reino 


merccda ZXeiiabaam- 




de Aragon, delude nos 


pliando sus ideas en el 


no esperar a que el QL 
baiase depreuopara asi 


guidor roai tie ouesira 




adquirii uno. "Laverdad 


(evista. 


stjelo progr.im.ir en BA 


esquclo* fines desem.i- 


Cm ligero Jitnio 


SIC en el Institute. En 


na me empie/.o a dedicar 


-mano", LuJ^ Mudrego 


easa realizo alguna cosa 


mis a mi oiro "hobbii". 


Ale|andre nos conifnu- 


en codigo maquina. 


el baloncesto, porque 




"Apiendi codigo ma- 


me lie eansida un poeo 


mundo dc Ij infbrmiti- 


quma.nrave..dclosar!i- 


de los [uegos. Estov mas 


ea:<.AI prmcipiolr.ibaja- 


eulosdcZX. Sin embar- 


inieresjdo por los mon- 




go, ,1 pesar de ser bue- 










en Ij que se puedc elegir 


lentos- 




entre Comercio, Infeir- 


Aunquc quiero decit 


en la noble dudad -iu- 


manca... Em peel; con el 


que el numero de Di- 


rurra*. donde eompro- 








compre un Spectrum de 


iuegos me ha gustado 






mnclio. 


solo se comparrc sinn 


Tiascontarnosque te- 


Nos sentiamos agusto 


que se increments non el 




CMMrMMda mutua- 




tereero dc BUT. charla- 


mente tmestras iociina- 






cioncs v. mirandoal fu- 


aniigos de ZX. 



VENTAMATIC 



UN \l IIMH l.i^ 

mt:i hi m soi ini 


S5 


ith i«i'n 


"'?ltt™llk. 


"SSsS 


.,„ 


r .„. 


















1 «_«»»»,- 


,.„„!., 















.^rJ 




r R m r 



Con este program j po- iiir carts y P— para plantar- 

Jr.is insialar un casino en le, Kl friego tieae stis ven- 

tu propi.i tasa. Ademas. uj.is: que jqui nohay que 

si-rve para entrcnarse antes temcrque el Spectrum sa- 

iio ju^Lit contra los amigos que un revolver o se pon- 

gos. Tambien permit? 48 K). 
apostar la cantidad que 



It hater Lis juj;.id,n upi- 
i del Blackjack: dobUr- 
apostar sobre seguro. 



past l.i canudad que 



K 



1 




HTM 


lack"* 


BQRDEF 




PAFEP 






AT 1" 


7; FL35H 


i; 


INK 






EL CASSETTE*": 


PAU 


=': 


KEX 


" P (-==-- 


ritacion e i.nstr 


JCC 














so 


POKE £36C 


n .°9 






100 


?r 


: FOR 
NT AT 


-■'+q~'--' + 


20 STEP 


FL 


ASH 








I JACK": 


AT 












SEE 


P .5 


l": 


BEEF 


. 5 . 2 1 : 


CA'JSE 25 


: N 


EXT g 












(-HI- 




TO STEP 


£EF 


. l.s: NEXT s 










FI h 




BRIGHT 


Qi cls 






r\ f 


! pr: 


IT AT 


. 9 : I NIC 




INSTF.UCC 


IONES 1 


' ' ; IN 


. 5: " Tit 


nss 


■500 


pt* 


. par- 


jugar 


Pue-des 


apo 
















ll 


enes BLACK JACK si te 


aa 


le u 












nin 




BLAO 


JACK. 


gana el 


que 


MS 


se 


acerqt 


e a 21 


El as ■ 


ale 



, 


11"- 


" S. ganas te p 


Pare t 




pejr 2"' ;" Si t 


enes B 


LAC 


J ACI' 


te pagare 3 a 1 


' i " En 


ca 


,n de 


gualdad de punt 


s rec 






ide 


con menos de 16 yse p 


ante c 








eel 




segcur ": PAUSE 


: IF I 


NKE 




HEN GO TO 130 




14 


i CLS 


PAUSE 20: PRINT AT 4, 




NY _■ : 


Si con las dos 


primer 










la 


banca 


a sacado 1 □ 10 


puada 










BBO 




bancs saca ELAC 


J SCK 










■jest a 






mit 


aa del 


valor de tu apuesta.'"" 








on 


g Lt» 1 e 


. ouedes dobl ar 


e.en c 








□ la 


' j "eg 


as una . ez can la prime 






Otra con 1 s seaunda. " 














. pause ,;,. if I 


i-:e'*=" 


" T 


ken ea ro no 




15 


i ClB 


PAUSE 20s PRIM 


AT 6, 


1 1; 


INK 6 


"FPESIONA"; INK 


5? AT B 


. =; 


R. . . .para rspartc": AT 


"> . 6 ; " C 



R □ 



r fi m ft 









W.Ai-P. 








s para seg 




-E 0: 




INKEY*=" H THEN 








RE 




Burnt. 




lee 


'■i.h 






1NE 








hh.;* ,0 








LASH 1:AT 


0,8; " 


NACE 


PTA1 


_E 


"; FLASH < 


;AT 11,0 


"No 
















la otra vo; 


" : PAUSE 




50 TO 190 






23f 


GC 


SUB 7000 






24l 


khi 


rep=rto tit 






25<" 


RANDOMIZE 0: LET el=IN 


(RN 


D»li 




LET c^=IN' 


(RNDtlO 


+ 1 


26C 


GO 


SUB 9500 






290 


b(J 


SUB 9600 






32C 


PR 


NT AT 14,4 


PAPER 7 


(CHR 


* 8 


AND 


ci>=iO) jel 






35C 


nn 


SUB 9500 






360 


GG 


BUB 9620 






39'. 


Pk 


NT AT 14, if 


; PAPER 


: <CH 


R* a 


AN] 










IF 


ci-c2 THEN 


PRINT 




;AT 


2i, 


0; "TE DOBLAS? is/n! 


: IF 


INKEYS= 


"" THEN GO TO 430 




140 


ih 


INKEYS^'s" 


OR INKEY*="S" 


THEN GO TD 2500 






445 


PR 


NT AT 21, K 






45r 


1..F1 


total =cl+c 


2: IF to 


«!<> 


1! THEN 


GO Tn 470 






460 


IF 


el-I DF: c2= 


1 THEN LET t 


otal 




: PAUSE 40 


GO TO li 




470 


IK 


cl = l -THEN 


LET cl = l 


: PP 




il : 


4,3: PAPER 






480 


if 


c2"»l THEN 


LET c2=l 


: PR 


INT 


4l . 








49C 


LE 


total=cl-c 


2: RANDOMIZE 




:t c 


3=INT <:RND: 






49- 




SUB 9500 






so: 


IF 


total <=? THEN SO TC 


520 


31 c 


ED 


TO 540 






52'. 


If- 


csi=l OR c= 


1=10 THEN PR 


INT 


AT 1 


1.3; INK 0; 


"APUESTA 


SOBR 


£ 3EGURI 


? <s/n>"i 1 


AUSE Oi IF IN 


KEYS 




THEN £0 TC 


520 




53C 


IF 


INKE¥*="s" 


OR INKEY9 


_"S" 



THEN 61 




t r. _■ " apuesta'- 




T AT Zi.C-i" 






INi 9["C.-eai' 


-a : at 7 ,Z-: "F . -se 


planta";AT 20, 


0: "iffnes "itotal 




550 I" INKEY«=' , c 


:■? INKEY*»"C" 


OR !N. EY«="p" OR 


['11 E .■* = ■ F ■■ r H F 






. 


OR INKEY*« U P" 


■ iNl 


pta! -10 THEN 


-. : = n 




5=>0 -_ET total«=to 


Bl+C I -c iNT 6 


.... INh 0;to 


= 1 : ■ o intos" 


• -- ■I'E'J 


LET h=2: CLS 


: 50 31 E- 9000: L >- 


•- i A" 20,8t IN 






. ■.■''-:■• 


7.5; -F . . i 1 


- ' 



















































































































































































MC 




,*, 




SUE 9bZ 


": (0 


HRS 






21 AND 




HEN 


LEI 








tBtall ' 


pun 


tQ5 " 








PAPER 7 




69C 






21 AND 


cl = ll T 


HEN 


LET 


total 






LET c2= 


.: P 


RINT 


AT 2C 




INK 9 


tDtali' 




to=" 


AT 14 


9; 


'APER 


; " ";c2 




700 


IF to 


:al j 


21 AND 


c3=ll THEN 


LET 








LET c3= 


Li P 


RINT 


AT 2t 


. 15; 


INK 9 


total; ' 




toa" 


PR IN 


T AT 


14..H + 


i PAPER 


7; " 


710 


IF to 


tal> 


21 THEN PRINT 


AT 




INK 9 


"SE 


PASO! 


: PAUSE 




GO 


ro ibo 












R D 



r a m a 



73C 


RANDOMIZE 0: LET c3=lNT !RN 


D*ie 


i+l; GO SUB 9500 


74< 


GO TO 550 




REM ,Ligada ordenador 


loir 


CLS : INK 9: PRINT AT 2.5i" 


tier 


es "j total)" puntos": GO TO 


102' 


FOF k=0 TO 4: OUT 254.1: OU 


T 25 


4.2: OUT 2^4.5: OUT 254,6; B 


EEF 


.2.16: OUT 234-.1: OUT 254.2: 


OU' 


254.5: O'it 234. 6! BEEF .2.1 




AlffiE 1: NEXT f: CLS : INK ": 


PR 


NT AT :.5i"tiene5 BLACI- JACK 


10"! 


IF totalZ' '0 THEN PRINT AT 


1 .: 




IF 


tOtal2«100 THEN PRINT AT 1. 




i-nes BLAO JACI " : FOR 1=0 T 


4 


BEE C .2. 16: BEEF . 2. l"?i HEX 


T 1 




104 


It c =,;i OP c.*3 THEN INK 2 


105 


IF c = l OF e=2 THEN INK 1 





:--='-■ 1 |W| 1 1 il^^l H ^ i" ■=■:.:■ c r i r a 5 




5 : f 


■'■ r ^ ' 


|,„ 


106C 


ro 


SUB 9c 


)0 




F'R" 


-IT AT 


12. >! PAPER 7{C* 


1 09r 


PR 


NT AT 


14.4: PAPER 7| (CHR 


$ a 


WT) 


C5l >=: 






FF 


NT AT 


le.,5: PAPEF 7jeS 


1130 
ND*1 


n?T 


DOMIZE 


0! LET cs2=INT (R 


1I4C 


fin 


SUB 95 


00 


1 15- - 




SUB 9i 






F'F: 


NT AT 


14. 10: FAPER 7: ICH 


R* £ 


AND c = 2 - = 


1-'' > SCS2 


t2K 


LET tats 




tot 


3lca=in D : 


11 THEN GO TO 123 


1221 


IF 


c=l = l 


OR cs2=l THEN LET 


to* 


alcasino= 


00: PRINT AT 19.9; 


INI 


<*; 


Tengo 


BLACK JACK"; PAUSE 




Gn 


TO 15 





12'i 


IF 


csl = ! 


THEN LET c«l=l 1: 


LET 


tot 


lcasino=tatalca=ina+10: 




R D 



r ft m a 



'■: PRINT 


hT 14,1- 


+ 1; PAPER 7; " "; 








1460 IF 


tatalcas 


ino -1 THEN GO 


TO 1462 
1461 BO 


7° ]4 : ';. 


THEN PRINT AT 
PASE! TU GANfiS" 

THEN PRINT hT 
PASE 1 FERO BANA 






I,;,,-.. , 3Q l0 iq,;,0 


1470 IF 




i no =f THEN PA 




Gu TO 






DOMIZE ■ 


: LET csJ-INT CR 


MDi ! : '-' '■■>■ 


: BO SUB 9500 




SE 100; 


GO TO 1280 


1300 RES 


compar. 


cion puntuacione 


1510 PAF 
1513 FOF 


ER 4: CL 


3 : INC a 


3 ; '* it - " : 


ME XT k 




151B FOI 


z=0 TO 


20 i PRINT AT z,0 


; INS 6 


..j,„. F . F 


INT AT z.3I; [W 


q; "^": 


■JEsT z 




1S20 IF 


total =H 


AND totalcasin 


□=100 THEN PR II 


T AT i0.8:"Tengo 


BLfii K 




U. a: 'Tienes BLA 


CK JACK 






1S30 IF 




o AMD totalcasin 


□■ !00 THEN PRI! 


T AT l,l;"T*ngo 








Tlenes 


: FLASH 


i: "BLACK JACK'" ' 


; FLASH 


0:AT S, 


1 ; "TU GANAS 1 " ; AT 


10. "'i 


MK ls"GANAS "tapue»ta*3j 


" Pts. " 


LET pt 




: ! N) 9 


GO TO 




1540 IF 


;©t»le»s 


ino=100 AND tota 


1:100 THEN PRU 




"; FLASh 


IS "BLAC 


: JACI "J FLASH 


;AT 2,1; 




' j total; " puntos 


" " 1 AT 1 


), 7; INK 


2s "YD GANO LA J 


UBADA": 


IF apues 


:a3>0 THEN PRIN 


T AT 11 s 


l;"Por t 


l apuesta sobre 










s '■ Pts. ' 


: LET pts=pts+ap 


uesta3*3 


: GO TO 


L910 


1515 IF 


:otalcas 


mo=100 AND tota 


1 .100 THEN GO TO 1900 


1550 pr: 




1; "Tango "s total 


casino; ' 


pantos' 


: PRINT AT 2. 1 ; " 


Tienes ' 






1560 IF 


LDtslcas 


ino>21 AND total 


22 THEh 


PRINT 


AT 8.4; "ME PASE, 


PERO SANA LA CASA" : GO TO 1900 


1565 IF 


totalcas 


ino.^21 AND total 


-21 THE 


N PRIM! 


AT S,"7; INK 1; " 



ME 


PASE. 


TU 


nAMAS 


": GO TO 


16O0 




IF 






no:-total 


THEN 


PR 


NT AT 


10, 


1; : 


■II J: " IE BANE! 














1560 IF 


ota 


CS5) 


no-total 


THEN 


BO 


TO 16 











15=0 IF 


□ t 3 


casi 


no'total 


AND to 


ta 


■21 THEN 


PRINT AT 8. 1 


: INK 


Is 


TU GANAS' 










PR I 






3 ; I NK 1 


"GANAS 




apues 


a*2 


.. Pt 


5. "i LET 


pts=pt 


S + 


spues 


a*2 


: Itv 


■, 9: uD 


'0 1910 


16 


PRI 


IT A 


8, 


j; INK <: 


"EMPAT 


AMOS" i AT 


10, 








O. 


"sapuesta 


., p1 


s.": LET 


pts=pt 






3 TO 






17 


CLS 


: FOR 1= 


TO 31; 


PRINT 


AT 






1 • 


: PRINT 


AT 21. k 


3 


Hi-: 6-. 


♦ ■■ 


NE ;■: 


■ k 




17 


1 FOR 


t =0 


TO . 


0: PR1N1 


AT 3,0 


; 


W 6; 


#" 


FRI 


IT AT z, 


1 : INK 


&< 


♦": NEKT 










I:: 




:-; ,- 


Ei«.,» 











1710 IF tot= 


12=100 


AND 


Cotalcasi 


not 100 THEN 


PRINT 


AT 


, 1: "Tango 














"EL 


CK JACK"; 


FLASH 0; AT 




:nk 


: "TU GANA 


S 1 ";AT 10.7; 








Pts. ": LET 


total2 


=0; GO TO 1920 


1715 IF tot= 


! 2=100 


AND 


totalcasi 


no=100 THEN 


PRINT 


AT 


O.S;"TE>ng 


o BLACK JACt 




enes BLACK JA 


CK": LET to* 


al ~-0: 


GO TO 1610 


1720 IF tota 






AND tota 


12' 100 THEN 


PRINT 


AT 




" ; FLASH 1 


"BLACK 


J AC 


" ; FLASH 


OsAT 2. Is "T. 






os"' " ;AT 10 


7; INK 


2: " 


GANO LA 


JUSADA" i IF spues 




i THEN PR 


INT AT 11,0 


"Por t 


i ap 


jest a sobr 


e seguro ha.' 








apuesta4*3 ( 


Pts. " 


LE 


pts=pts+ 



R D 



r a m ft 

























IF teres 


■ i^ 


r- 


. .. . 


AND tot a 


1 2 


00 then 


■..f T 


■O 


al 2 


0, GO TQ 


191 












l?:- 


PRINT _ 


: , 




*--: 


d ■i-.atal 


res 


no; =-■-■ 


□ S' 




ik r 


h- _, 1 : " 


Tier 












• 


if ■. r.a 






■ 


AND tota 


11' 


': '. ' 








ih£n p 


RIN 




■ .■ 


1 I 


«1Q 


■"ifc Tu 












ro 1600 












F<INT A 


r i 


5- "j- 


; 5 


r" F 


>so, 


10 GANO" 


i [ 


1 t: -t - i .' 




-.. 


J 






IF tcta 


cas 




i ,.. 


=i: ? THEN 


PR 


NT A T ■■: 


1 1 ; 


IN 


2: 


1 TE GAME 




LE' tela 






) [(J 


: 904 ) 



N SO TO 17 


,o 






1915 
1918 


IF P ts 


>S0000 


THEN 


5Q TQ 75 


GO TO 


180 






1920 


FOR !■: = 


> TO 3 


BEEF 


. 125, 12r 


BEEP .25. ! 


°: PAUS 


E 10: 


NEXT us 


BEEP 




: BEEP 




14: BEEP 


. 125 


22: BEEP .12' 


. 15: 


BEEP . 125 


. 14: 


BEEP . 




BEEF 


. 125, 14: 


BEE 


.25, : 


2: PAUS 


E 70s 


INK 9: I 


F to 


»12:X> 


THEN SO TG 




1925 


IF pt = 


>50000 


THEM 


50 TO 73 


00 










1930 


sa to 


180 






2000 


REM a.p 






2010 


PRINT 


AT 21, 


REri 


2£>espacio 


s bl 










2020 


PRINT 


AT 21, 


; "ARUESTAB SOB 


RE SEGURO ■ 




Pts.": P 


AUBE 


75: IF 


3PUE5 


»/2>f 


ts THEN 




1760 IF totaJeas 


no«*o+al 


1 THEN 


LET total2=0: 60 TO ltolO 




1770 IF tntalcas 


no-, totsl 


2 THEN 


PRINT AT B. 11: 


NK 1 ; "TL 


GANAS ! 


": LET total 2=0 






1790 PRINT AT 10 


S: INK ] 


; "GANAS 


";apuesta*2i " P 


S. " : LE _ 


pta=pt 




K 9: GO 


TO 1910 


1800 IF apuesta3 


THEN 


50 TO 1 


000 






190O PAUSE 100: FOR 1=1 TO 60l B 


EEP .001. k: BEEP 




NEXT k 


: INK 9: IF tota 


2:0 THEI 1 


GD TO 


1700 






1902 IF pts>5000 


J THEN C 


TO 75 


00 






1905 GO TO ISO 






1910 FOR x=0 TO 


5: BEEP . 




BEEP .25, 19: PA 


JSE 10: 1 


EXT -a: 


PAUSE 70: INK 9j 


IF total 


2>0 THE 



PRINT 


AT 21.0: "NO TIE 


MES D I NERO 


PARA 


CUBRIRLA "l PAUSE 75: PHIN 


T AT 


21.0:" SISUE 


TU JUEGO N 


ORMAL " : PAUSE 75 


PRINT AT 


21.5 




"l RE 


TURN 






2030 


LET apuesta2=apL 


ssta/2: LET 


pts= 


pt5-apuesta2 




2060 


RETURN 




2500 


REN doblado del 




2510 


PRINT AT 20, 1: I 


JK Oi FAPER 


5:"AFUESTAS F'OR LA SEGUNDA CART 








": PAU5E 75 




2515 


IF apU*S-ta>pts THEN PRINT 


AT 2 


, 1: FAPER 6: INK 


1; "NO TIEN 


ES D 


NERO. NO PUEUES 


}Q-BLAFTE. 


SIGUE TU JUEGO NORMAL 


"i PAUSE 


75: 


PRINT AT 20. 1: " 


GO TO 440 



□ G A A m A 



2520 LET pt = =pts-apuE?sta: PAUSE 

75 

2530 CLS : GO SUB 9800i PRINT AT 

20.8: INK 9;"Tienes ":cli" punt- 
os"sAT 5,5; "C. -car ta M : AT 7,5; "P. 
-se plant*" 
2540 PRINT AT 21.5; INK 0; PAPER 

5;"JUEGAS LA FRIMERA CARTA" 
.£542 60 SUB 2550 

2545 LET apuest a3=apuesta2: LET 
total=total Is SO TO 2B50 
2550 LET total 1=0: 60 SUB 95O0 
2555 PAUSE 10; GO SUB 9600 
2560 PRINT AT 14,4; PAPER 7; <CHR 
* B AND cl>*"10> sol 
2570 RANDOttlZE 0: LET c4=INT (RN 



DtlDJ+li LET total 


L=el+c4i PAUSE 







25B0 IF INKEVS="c" 


OR INKEY*="C" 


OR lNKEY»="p" OR 


:NKEV*="F" THE 


N GO TO 2600 




2590 GO TO 2560 




2600 IF INKEY*="p" 


OR INKEYS="P" 


THEN RETURN 




2610 60 SUB 9500 




2615 GO SUB 9630 




2620 PRINT AT 14. h 


-4: PAPER 7;c4 


; PRINT AT 20, 15; 


INK 0: total 1 



2621 IF total <=9 THEN GO TO 262 
3 

2622 GO TO 2630 

2623 IF csl = I OR CS'1=10 THEN PR 
INT AT 21,3; INK Os "APUE5TA SOBR 
E SEGURO? (s/n)": PAUSE 0: IF IN 
KEY*="" THEN GO TO 2623 

2624 IF INKEY*="s" OR INKEY»="S" 
THEN GO SUB 2000 

2625 PRINT AT 21.0s " 



£ 



LET 



2640 GO TO 2660 
2650 IF cl=l OR cl=ll THEN 
total 1 = 100: PRINT AT 20.8s INK C 
:"tienes "; FLASH lj "'BLACK JACK" 
! FLASH 0: PAUSE 7: RETURN 
2660 IF cl = l THEN LET cl = H: LE 
T total l^total 1+10: PRINT AT 14, 
3! PAPER ^scl; PRINT AT 20.15; i 



4 = 1 Is LET to 



INT AT 1.4.9s 
T 20, 15: INK 
2675 RANDOM I: 



LET c5=INT (RN 



2680 IF INKEY»="c" OF: INKEY*="C" 

OR INK.EY*-"p" OR INKEY*=' , P" THE 
N GO TO 2700 
2690 GO TO 26S0 
2700 IF INKEY»="p" OR INKEY*="P" 

THEN RETURN 
2710 BO SUB 9500 
2715 GO SUB 9630 

2720 PRINT AT 14.h-4: PAPER 7; <C 
HRS 8 AND cS>«10);cS 
2730 LET total l=totaI l+c5: PRINT 

AT 20.15; INK Ostotallj" puntoa 

2735 IF c5=l AMD cK*10 THEN LE 
T total l=total 1+10: PRINT AT 20, 
15; INK O: total Is" puntos ".s LET 
c5=ll; PRINT AT 14.h-5; PAPER 7 



740 IF to 


al IV 21 AND cl=ll THEN 


LET tota 


l=tot*ll-10: PRINT AT 


20, 15; IN 


Oj total ll " puntos ": 


LET cl=l: 


PRINT AT 14,3; PAPER 



mirri— nge: 



oi. (espartol) 
tacluraciiin 



ORDENADORES: Specif jm. Spectrum i Spectra.ideo, Comfr 
IMPRESORAS: Star New Prim Soikosha dcsde 774 plas a 
MODEM TELEFONICO - AMPLIACIONES DE MEMORIA 



acre, Qric, Katson... desde 1.239 pesetas ai 
mas Monliores. Accesonos 
LAPIZ OPTICO CURRAH [S. DE VOZ) 



EMVIOS CONTRA REEMBOLSO. GIRO O TALON CONFORMADO .. -„!■■ 



R □ 



R R m R 



20. 


5( IN 


0; to 


tal Is " 


puntos ": 


LET 


c4 = l: 


PRINT 


AT 14 


9s PAPER 


7; " 










2760 


IF to 


al 1 >2 


AND 


:5=11 THEN 


LET tota 


t=tot 


al 1-10 


PRINT AT 


20, 


5; IN 




:al is " 




LET 




PRINT 


AT 14 


h-4s PARE 


R 7: 


";cS 








Z7BC 


IF to 


al i -2 


. THE!- 


PRINT ST 


1. 1 


I NK 


s "SE 


=ASQ"i 


PAUSE 50: 


RETL'F'N 








2790 


P.ANDDMIIE i 


. LET 


:S=IWT '.FN 


D»10 


* 1 : IF h >26 


THEN 


LET h = 2 


2eo< 


50 Tu 


2-680 






2S50 


PAUSE 


50 1 C 


.S s GO SL 


: PRINT AT 


20 , 5 s 


I N* 9 


. "TiensE " 


!c2; 




5.5s " 


3. -carta"! 


AT 7 








AT 1,0) IN 


1 1: 


PAPER 


6i "sa 


castes 


"jtotal ; " 


pun 










ZSfiC 


PR ! NT 


hT 21 


5; IN 


< Oj PAPER 




5s "JUEBAS LA BESUNDS CARTA 




2870 


PAUSE "'Ss GO SUB 2550 




2B80 


LET apt. 




LET 


tota 


2=tota 


1 




2890 


GO TO 


000 




2900 


STOP 






7000 


REM in 


cio jugsda 






BORDER 


4: PAPER 4s INK 




LS 








7020 


LET ap 


esta3=0: LET ap 


uestl 


2=0: 


LET ap 


B5ta4=0s LET to 


:a!2= 


0: LET pt = = pi-Si-apuesta3 IF 




THEN GO TO 8500 




7030 


F-hNL'ijM 


IE Oj LET csl=] 


JT ( R 


ND*1 


j)+i 






7035 

00 

7040 


IK pta 


SO000 'HEN BO 


TO .'5 


LET c- 


NT (RND*4i s LET 


c*=C 


HR« 


tl44+c> 


LET e*=CHR* ! 1 


44+C + 



4) 






7050 


60 5UB 9800 




7130 


PRINT AT 3,3: 


INK 9j "R.-rep 




: PAUSE 0: IF 


INKEV*="" THE 


N GC 


TO 7130 




7 1 40 


IF INKEY»="r" 


OR JWKEY*="R" 


THEI 


RETURN 




7130 


GO TO 7170 




7500 


REM final izaci 


on par saltar 


la 






7510 


CLS 




7520 


FOR k=0 TO 31 


PRINT AT 0,1s 


! IN 1 


6i"^": PRINT 


AT 2 1 , k : I Nk 


£>;"Vl NEXT k 




7530 


FOR z=0 TO 20 


PRINT AT 7,0 




6:"«"": PRINT 


AT E,31i INK 


6s "■" 


•: NEXT z 




7540 


PRINT AT 6.B: 


PAPER 6: INK 


Is "GANAS "sptss " P 


5. " 




FOR :: = 1 TO 20 


OUT 254. 1: 


LIT 2 


4,2: OUT 254,5: OUT 254.6: 


OUT 254.3s PAUSE 1 


NEXT h 


7560 


PRINT AT 7. 10 


FLASH 1; BR I 


SHT 


; INK 1 j "ENHORABUENA" 


7570 


FOR s=0 TO 4: 


BEEP .5. 17s B 


EEF 


3.21s NEXT s: 


FOR t^22 TO 


STEP -Is BEEP . 1. 


: NEXT t 


7580 


PRINT AT 8. is 


INK 2! " SALTA 


STES 


LA BANC A DEL CASINO" 


7590 


FOR M=l TO 50 


OUT 254. Is 


UT 2 


54.2: OUT 254.5s OUT 254,6: 


OUT 


K54,3s PAUSE 1 


NEXT x 


7595 


FOR x=0 TO 3s 


BEEP . 125. 12s 


BEEP .25.19s PAUSE 10s NEXT •< : 


BEEP 


.25. 12: BEEP 


125. 14s BEEF 


. 125 


22i BEEP .125 


15s BEEP . 125 


, 14: 


BEEP . 125. 19, 


BEER . 125. 14: 


BEEP .23. 12 




7tV0O 


PRINT AT 18. 1 


CNt 1 : "Si qtl 


isre 


- seguir jugando t«n-"sAT 1 


. Is " 






76 1 


PRINT AT 20, 1 


i INK li'Xamb 




.s/n>": IF 1NKEY*="" THEN 


TO 


7610 




762C 


IF INKEVt="s" 


DP INK.EY*="5" 


THEN CLS : PAPER 


u: BORDER 0: 


GO TO 130 




7630 


STOP 




800C 


REM caleulo g 


insrvcias por f 


er.ir 


CLS 




802C 


IF pt=-500 THEN PRINT AT ' 


0.5: 


INK 2i"HAS RERDIDQ "s500-pt 


s: " 


=tB, "! GO TO 8 




8030 


PRINT AT 10. 1 


S INK lj" ENH 


ORABUENA " ! AT 12,4 


"Has ganado " 


spt^ 


-500; " Pts. " 





R D 



R R m R 



B040 


STOF' 








S500 


REM i 








8310 


CLS 








8520 


PRIM" 


FLASH 


;AT 9. 12;' 


SE 


ARRUINO ' 


: FLASH 


iAT 10.7;' 


SB 


te 3 




1 dinera 


: PAUSE 100 


8530 


CLS : 


PRINT AT 12,2;"DESEAS 


JUGAR DTRA VEZ (s 


n! ": PAUSE 




IF 


NKEYi 


="" THEN 


60 TO 35~ 


o 


B540 


IF INKEY«""''s" 


OR IWKEVfH 




THEN CLE 


! PAPER 


0: BORDER 




60 TO 130 








8550 


STOP 








9000 


REM c 


ef initio 






9010 


FOR = 


=USR "a" 


TO USR "n' 




9020 


READ 


b: POKE 






9030 


NEXT 


a: RETURN 




9040 


DATA 


24,60. 126,235,253, 1 


26 




■ 








9050 


DATA 








,60 










9060 


DATA 








6.56 










9070 


DATA 


68, 238, 254, 254, 254. 


124 


.56. 










9080 


DATA 






60 , 24 








9090 


DATA 


60,24,90 


255. 255. 90 


60 


.24 










9 1 00 


DATA 


















9110 


DATA 






238, 68 








9120 


DATA 




5, 12,24. 24 




9130 


DATA 


J, 0,0, 19 


,240 


48, 24 


24 


9140 


DATA 


24,24,12 


15.7 






9150 


DATA 


24,24,43 


240, 


=>2 u 




9160 


DATA 


:>, 0,0, 255. 255 


, 




9170 

4 

9500 


DATA 


24,24,24 


24.:? 


,24,2 


*> 2 


REM d 


eterminacion pa io v 


CO 


lords la c 








9510 


LET b 


=INT <RND*4> 




9520 


LET b 


S=CHRS ( 


44+b) 




9530 


LET d*=CHR* < 


44+6+4) 




9340 


IF b = 


THEN 


NK 2 




9545 


IF b = 


2 THEN 


NK 1 




9550 


IF b = 


1 THEN 


NK 1 




9555 


IF b = 


3 THEN 






9560 


RETURN 






9600 


REM c 








9610 


LET h 


=2 






9640 


PR I NT 


AT ll.h 


PAPER 7i " 


,— 












9650 


PRINT 




PAPER 7 ; " 




"*'" 


1" 









9660 


PRINT AT 13, h 


PAPER 7i"l 


9670 


PRINT AT 14, h 


PAPER 7; " I 


96B0 


PRINT AT 15. h 


PAPER 7; " | 


9690 


PRINT AT 16, h 


PAPER 7; " | 


"SdS 


" 1" 




9700 


PRINT AT 17. h 


PAPER 7; " • 








9710 


LET rt=h++6 




9750 


RETURN 




9B00 
9810 


REM dibujQ carta 1 ordenado 


IF c=0 OR c=3 


THEN INK 2 


9820 


IF c=l OR c=2 


THEN INK 1 


9830 


PRINT AT 1.22 


PAPER 7: " i 








9B40 


PRINT AT 2.22 


PAPER 7;" l"| 



^■'•'■'•'■'■'•"^'•"•'r'f •'•'*'•'*' 



c5 .„ ,,. 




9850 PRINT AT 3,22; PAPER 


7;" I 


9860 PRINT AT 4,22; PAPER 


7;" 1 - 


; CCHRS 3 AND csl>«10>icsl 


" 1" 


9B70 PRINT AT 5.22: PAPER 


7;" I 


98B0 PRINT AT 6,22; PAPER 


7;" | 


";e5;" 1" 




9B90 PRINT AT 7,22; PAPER 




— '": PRINT AT 8. IB] INK 




";csl; " punto": IF csl = l 


OR cs 


1 = 1 THEN PRINT AT -9, IS: 


NK 1 ; " 


pusdc sacar un " ; AT 10.20; 


BLACK 


JACK" 




9900 RETURN 





PI D 



Pi fl m ft 



Conversion de Unidades 



,i i.uubur cualquier n- 
podt unidades, del sisieraa 

flceversa-Asinosevitiimos 
\i jrduj urea de ir.inslor- 
m.ir los d.nos de una forma 

"o'J^cnciVk^ A*i 'Jjct ut.i r cl 
programs a presratatan 



pcion di-M.id.i debera 
I senundu paso, .1 l.i vt 



dt pimbilki.uk' 

que so quede 




, 


INK 1: PAPER fa: BORDER 6 


ft 


ESTORE 






,iof 


CLS : PRINT ; FLASK 
PARA LA CINTA" 


1 ; AT 


i.o 




FDR N = -20 TO 20: BEEP . Oi 




: NE 


T Ni CLS 






7 


FEM DEFINITION DE L 


A Er,E 






FOR n=l TO 8 






1] 


READ a 

POKE U5R "n"+n,a 

NEXT n 








DATA 120,0, 120.6B.4 






15 


REM CONVERSION DE L 


MIDADES 


20 


PRINT ; BRIGHT IM- 


1. 4: 


c 


ONVERSION DE UNIDADES " 






30 


PRINT ; BRIGHT 1 ; AT 


Fsr 


35 


PRINT : PRINT " 








40 


INK 4: PRINT AT 10. 


3:"1- 


AN 


GLO-METRICO" 








INK 2; PRINT AT 12. 


3; "2- 


ME 


TRICO-ANGLO" 








INK 0! PRINT AT 14, 




BR 


ADOS 


-RADIANES" 






60 


PRINT AT 21.0s "Que 


^iige^ 


"": BEEP .25.6 








IF INKEYS="1" THEN 


CLS 


L 


tl H 


-l: 60 TO 90 






BO 


IF INKEY*="2" THEN 


CLS 




£T A 


=2i GO fQ 2030 







B5 


IF IN 


EY*="3" THEN GO TO 4 


Bfa 


60 TO 


75 


90 


REM ANGLO-METRICO 


72 


INK 2 


F'RINT AT 0.8;"ttHANG 


LO-METRICD 


3 13" 


93 


PRINT 


AT 1,8;" 




-■': INK 1: PRINT 


95 


PRINT 


"Que eliges? ": F'RINT 








110 


_ONGIT 

INK 1 


JD": PRINT 

PRINT "1. Leage-Km" 




PRINT 


"2. Mile-Km" 


130 


PR I NT 


"3. Furlong-Hm" 


140 


PRINT 




130 


PRINT 


"5. Pole-Metros" 


lfaO 


PRINT 


"fa. Fathom-MetTo=" 


170 


PRINT 


"7. Yard-Cm" 


ieo 


PRINT 


"B. Cubit-Cm" 




PRINT 


"9. Foot-Cm" 


200 


F'R I NT 


"10. Inch-mm" 




INK 2 


PRINT : PRINT : BRIG 


HT 1 


TAB 3 


"CAPACIDAD": PRINT 


220 


INK 1 


PRINT "11. Load-Hl " 




PRINT 


"12. Wev-Hl" 


240 


PRINT 


"13. Quarter-Litres" 


250 




"14. Coom-Li tros" 


260 


PRINT 


"15. StriKe-Litros" 


270 


PRINT 


"lfa. Imperial Bushel- 


Litr 






20C 


PRINT 


"17. Peck-Litros" 


290 


PRINT 


"IB. Imperial Gallon- 


Litr 






300 


PR I NT 


■'19. Pottle-Litros" 


310 


PRINT 


"20. Pint-Litros" 




PRINT 


"21. Gill-dl" 


330 


INK 2 


PRINT : PRINT : BRI6 


HT 1 


TAB 3 


"SUPERFIC1E": F'RINT 




INK 1 


PRINT "22. Square mi 


le-K 






350 


PR I NT 


"23. Hide-Ha" 




PRINT 


"24. Yardland-Ha" 


37o 


PRINT 


"25. Acre-a" 


380 


PRINT 


"26. Rood-a" 


390 


PRINT 


"27. Square cham-a" 


400 


PRINT 


"28. Square ysrd-a>1-2" 


4ic 


PRINT 


"29. Square foot-mt2" 


420 


PRINT 


"30. Square inch-CmT2 


430 


INK 2 


PRINT : PRINT ; BRIG 


HT 1 


TAB 3 


■'PESO": PRINT 


440 


INK 1 


PRINT "31. Lonq ton- 


Kgr" 







R D 



r a m ft 



450 


PR 


NT 


32. Short ton-Kgr" 


460 


PR 


NT 


33 


Hundredwi ght tqi n 


tal ) 


-Kg 








470 


PR 


NT 




Cental-Kgr" 


180 


PR 


NT 


35 


Quarter (arroba)- 


Kgr" 










490 


PR 


NT 


36 


Stone-kgr" 


500 


PR 


NT 


37 


Pound avoirdupoi 


sllibra 


~gr 






510 




NT 


3B 




520 


PR 


NT 


39 


Draroidracmal-gr" 


530 




NT 


40 


5rainlgrana)-cq" 


600 


BE 


P .25,6: INPUT "Que elig 


E5? 


;b 


CLS 


605 


IN 


UT 


Valor para conversio 


n? •' 








607 


RE 


EQUIVALENCIAS DE UNIDftD 


ES 








610 


IF 


b="l 


THEN LET d=4.B2B0: 


LET u*= 


Leai; 


e": LET vs="Km" 


620 


IF 


b«2 


THEN LET d=1.6093: 


LET L 






" : LET V*""K*" 


630 


IF 


b»3 


THEN LET d=2.0116: 


LET i 


*= 


Furl 


ong": LET v*="Hm" 




IF 




THEN LET d=2.0116: 


LET U*= 


Chai 


n": LET vS="D(>1" 


650 


IF 


b=5 


THEN LET d=5.029l! 


LET li* = ' 


Pale 


'■ ! LET vS="Metros" 


660 


IF 


b=6 


THEN LET d=l.B288: 


LET L 


*=' 


Path 


om": LET vS= ,, Metros" 


670 


IF 


b=7 


THEN LET d=91.4402: 


LET 


u*= 




d"; LET v*="Cm" 


6S0 


IF 


b«"3 


THEN LET d=45.7192: 


LET 


u*= 


"Cub 


it": LET v*="Cm" 


690 


IF 


b=9 


THEN LET d=30.4B01: 


LET 


u*= 


"Foot"! LET vS = "C(n" 


700 


IF 


b = K 


THEN LET d=25.4001 


: LEI 


u9 


=*'In 


eft": LET v*="mm" 


710 


IF 


b— 11 


THEN LET d=29.07Bl 


: LET 


u» 


.="Lo 


ad": LET vs="Hl " 


720 


IF 


b—12 


THEN LET d=14.5391 


: LEI 




--- " life 


y": LET vS="Hl " 


730 


IF 


b = 13 


THEN LET ri=290.7Bl 


3: LET u 


$="Quarter": LET v*="Lit 










740 


IF 


b = 14 


THEN LET d=145,390 


6i LET u 


*="Coom": LET vS="Li tros 


750 


IF 


b"13 


THEN LET d=72.6953 


: LET 


u* 


■"at 


rike": LET v*="Litro 


760 


IF 


b = 16 


THEN LET d=36.36B0 


: LET 


US 


-"Im 


aerial Bushel": LET 


v*="L 








770 


IF 


b = 17 


THEN LET d=9.0B69: 


LET 


U*= 


•Pec 


k": LET vS="Litros" 


7 BO 


IF 


b"ta 


THEN LET d=4. 5460: 



LET 


liS = " Imperi al Gallon": LET v 


* = "Li 




790 


IF b=19 THEN LET d=2.2717: 


LET 


nS="P0ttle": LET v*="Litroa 


aoo 


IF b=20 THEN LET d=0.5679: 


LET 


j*="Pint": LET vS="Litros" 


BIO 


IF b=21 THEN LET d=1.419B: 


LET 


jS="Sill ": LET v*="dl " 


B20 


IF b=22 THEN LET d=2.5900: 


LET 


_iS = "square mile": LET vS="K 


mf2" 




830 


IF b=23 THEN LET d=40.4671 


: LET 


u*="Hide": LET v*="Ha" 


B40 


IF b=24 THEN LET d=12.1401 


! LET 


u*="Vardland": LET v*="Ha" 


850 


IF b=25 THEN LET d=40.4681 


: LET 


u*="flcre": LET v*="a" 


860 


IF b=26 THEN LET d=10. 116B 


: LET 


uS="Road": LET v*="a" 


B70 


IF b=27 THEN LET d=4.0467: 


LET 


j*="Square chain": LET v$=" 


380 


IF b=2B THEN LET d=0.B361: 


LET 


iS = "sqLtare yard": LET vS = "M 


etras 


r2" 


B90 


IF b=29 THEN LET d=0,0929: 


LET 


j*="Square foot": LET v*="M 






900 


IF b=30 THEN LET d=6.4516: 


LET 


iS="Square inch": LET v*="C 


1000 


IF b=31 THEN LET d=1016.04 


75: LET Li»="Long ton": LET v*="K 


gr" 






F b=32 THEN LET d=907. 185 


2: LET u*="Short ton": LET v*="K 


gr" 






F b=33 THEN LET d=50.B024 


: LET 


uS="Hundredwight (quintal > " 


: LET 


v*="Kgr" 


1 030 


F b=34 THEN LET d=45.3593 


: LET 


u$="Cental ": LET vS="[,gr" 


1040 


F b=35 THEN LET d=12.7006 


: LET 


u*= "Quarter (arroba) " : LET 


VS="K 




1 050 


F b=36 THEN LET d=6.3503: 


. LET 


*="Stone": LET v*="Kgr" 


1 060 


F b=37 THEN LET d=453.592 


6: LE 


u*= "Pound avoi rdupoi s ( 1 i b 




LET vS="gr" 


1070 


F b=33 THtN LET d=2S. 3475 


: LET 


LiS="Ounce(onza> "; LET v*=" 


gr" 




1080 


F b=39 THEN LET d=1.771B: 


LET i 


$="Dram(dracma)": LET v*»" 


gr" 





R □ 



r fi m n 



1090 IF b=40 THEN LET d=6.4799: 


LET u*="Gr 


ain (grana) " : LET vS=" 


cgr" 




1900 IF a=: 


THEN 60 TO 2B00 


2000 LET r = 


c*d 


2010 INK 2: 


F'RINT ici" "IU*I" = 






2020 60 TO 




2030 R£n ME 


TRIC-ANGLP. 


2035 INK 2: 


FRINT AT O.Bs " « n MET 


RICO-ANGLO (in" 


2036 PRINT 








. 1: PRINT 


2040 PRINT 


'Due eliges?": PRINT 


2050 INK 2: 


PRINT i BRIGHT 1 ! TAB 


3; "L0N5ITU 


D"i PRINT 


2060 INK 1: 


PRINT "1, Km-Leage" 


2070 PRINT 




2080 PRINT 


'3. Hm-Furlong" 


2090 PRINT 


'4. Dm-Chain" 


2100 PRINT 




2110 PRINT 


'6. Metrns-Fatham" 


2120 PRINT 


'7. Cm-Vard" 


2130 PRINT 


'8. Cm-Cubit" 


2140 PRINT 


'9. Cm-Foot" 


2150 PRINT 




2160 INK 2: 




HT 1;TAB 3: 


'CSPACIDAD" 


2170 INK l! 


FRINT "11. HL-Losd" 


21 BO PRINT 


'12. Hl-Wev" 


2190 PRINT 


1 13. Litros-Quarter" 


2200 PRINT 


'14. Litros-Coom" 


2210 PRINT 


'IS. Litros-Strlke" 


2220 PRINT 


"16. Li tras-Iniper i al 


Bushel " 




2220 PRINT 


"16, Li tros-Imperial 


Bushel " 




2230 PRINT 


"17. Litros-Peck" 


2240 PRINT 


"18. Litros-Gal Ion" 


2250 PRINT 


"19. Li tros-Pottle" 


2260 FRINT 


"20. Litros-Pint" 


2270 PRINT 


"21 . dl-Sill " 


22BO INK 2: 


PRINT : PRINT i BRIG 


HT 1;TAB 3| 


"SUPERFICIE": PRINT 


2290 INK 1: 


FRINT "22. KMt2-Sq.ua 


re mile" 




2300 PRINT 


"23. Ha-Hide" 


"2310 PRINT 


"24. Ha-Vardland" 


2320 PRINT 


"25. a-Acre" 


2330 PRINT 


"26. a-rood" 


2340 PRINT 


"27. a-Square chain" 


2350 PRINT 


""28. MetrosT2-Square 


yard 





2360 


PR I NT 


"29. 




tro*T2-3qi 


are 


2370 


PRINT 


"30. 


Cmt2- Square 


Inch 


2380 


INK 2: 


PR I 


NT 


PRINT j 


BR 1 5 


HT 1 


TAB 3; 


"PESO": 


PRINT 




2390 
2400 


INK 1 


F'R I 


NT 


■31. kgr-L 


ono. 


PRINT 


"32. 


Kq 


--Short ton" 


2410 


PRINT 


"33. 


r.q 


--Hundreds 


ight 




tal ) " 










2420 


PRINT 


"34. 




r-Cental" 




2430 


PRINT 


"35. 




--Quarter. 




2440 


PRINT 




Kq 


r-Stone" 




2450 


PR I NT 


"37. 


9>- 


-Pound avoirdu- 




libra 










2460 


FRINT 


"38. 


t)r 


-0unce(on3 


a) " 


2470 


F'R I NT 


"39. 








2480 


PRINT 


"40. 




-Grain Cgr 




2700 


BEEP 


25.6 


: I 


tfPUT "Que 


elig 


es"> 


;b: CLS 








27 1 


INPUT 


"Vai 






r>-> " 


c. 










2720 


60 TO 










2300 


LET r = 


c/d 








2810 


INK 2 


PRINT 






"ir; 


"SU» 










2820 


60 TD 


3O0< 








3000 


INK 4 


BEEP . 


25 , fa : F'R I 


T : 


PRINT : FR 


NT ' 


Jui 


eres real 


zar 














30 1 


IF INKEY*= 


"S' 


OR INKEY*="s" 


THEN CLS 


: a 


rc 


20 




3015 


IF 1NKEY9= 


'N" 


OR INKEY 


= "n" 


THEN PRINT : 


^RI 


JT "HASTA 


LA P 


ROXIMA": GO TD 


600 








GO TO 










4000 


REM GRADQS 


A 


WDIANES 




40 1 


CLS 










50O0 


INK 2 


PRINT 


}T l,Sj"» 


BflMG 


ULO CONVERSIQN»o' 










AT 3 


. B; 


"6RAD0S A 


RAD I 


5020 


PRINT 


ANES 












5025 


INK 1 


pr: 


Nl 






5030 


INPUT 


"ANGULC 


EN oRADOS.MIN 


UTOS 


¥ SEGUNDQE 




D.M.S 




5060 


IF D + 


+B=(. 


THEN GO TO 


50 30 


510O 


LET A 


=D+n/ 


60- 


S/3faOO 




5110 


LET R 


INT 


(A/ 


360 ) 




5120 


INK 2 


rR 


NT 


"RADIANB= 


"; A* 


,01745329-R*6.: 




353 




513K 


INK 1 


PRINT 






5 1 40 


GO TO 


3000 









||PfiDGRflmflS| 












j; liL'Ii::. 




1 


ijlfe- 


I 




1 


II; il|s|ifr|:t:;"";;;:; 


it: 


""Ml"" 






1 
1 


sc. s q b_» a r s yard-mt^ 


Is 


; llllllsiifi s i£l- , ' S£S 








1; 


IsIrils^L'HH^r" , 


1; lBls'P::I;*^Zl""lL, 



GUIA PRACTICA - GUIA PRACTICA - GUIA PRACTICA 



Academia Matematicas 



CURSOS DE 
INFORMATICA 



P@oi 


mni 


i.a. 


NO es jn jueg 


,'FDLOSPKCT 


UM 


P.V 


> 14.996 ptas 


C/Car,,lla5,n 


38. 1.° D. 280C 



SINCLAIR / ZX - SPECTRUM 

distributor CESPEDES 

VALENCIA (wonikth okikkkm 




(TmnTRDL I 



■ 

is 

r 

4k COMMODORE SPECTRAVIDEO & 

5 SHARP AMSTRAD F 

% THOMSON |j£ 

'C'' '$*' %■ '-ft' '%£"W '-^' '^"T? 



6 



ELECTRONICA 
^SANDOVALsa 



DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 
************* 

ELECTRONICA SANDOVAL, S, A. 

C/. SANDOVAL 3 4. 8 - MADRID-10 

slifonos: 445 75 58-445 76 00-445 IB 70^ 



' ARTO N 

LOS ESPECIAH5TAS £N INFORMATICA 
SINCLAIR Y COMMODORE 

Tndo el Hardware y Sol I ware nacmnal 

MAS DE 650 PROGRAMAS 
■ .■■ ■ - ■- 

ESCRIBENOS 

ARTO. C/Angli, 43 - Tienda 

08017 BARCELONA 




Programas, libros, inforn 
g| geaco- 









IiH""i'i''V n 1 "" n^r "^1 


H||iW| 


m*xM 



iATENCIQN! 

USUARIOS 

DEL MICRODRIVE 

ZX SPECTRUM 

Yadispo nemos del Plan 
Nacional Contable Microdrivi 

* Archivo Plan Contable 
256 Cuentas 

* Archivo Asientos 
1024 Asientos 

* Extractos de Cuentas 

* Balances 
Situacion 
Sumas y Saldos 

y todoen ZX Spectrum. 

/ %/\ Wld-/v*kro s.c 



GUIA PRACTICA - GUIA PRACTICA - GUIA PRACTICA 





CLUB DFX JUEGQ 


COMPRA - V 

PROGRAMAS DE 

Enire Olros Space RaiQer 


S| 


Pof s6lo 900 plas mas gasvas OS emiio. 


™™°s S 9 ' 8,,S n ' ,e! " D ° a,; " OBD de °'°" 


SS!r , .«.B.. e ?STf wM.i 




MBLOfiNVWN. 




SSS"|N ;■*,«; 


Ap^c^Tis* 


BABCELONA 



/MICRO 



M 



HACEMOSFACIL 
LAINFORMATICA 

• SINCLAIR • SPECTRAVIDEO 

■COMMODORE • DRAGON 

• AMSTRAD • APPLE 

• SPERRY UNIVAC 



REH 



Ordenadores personates Hard y Soft. 
■ Cursos de Basic. 



-:•'".?:*;■•''':'"■ ':"' 



MUY INTERESANTE 

PARA 

MAESTROS Y 

ALUMNOS 



SA7BZC0 



ANUNCIESE 



MODULUS 



MADRID 
(91)7339662 



BARCELONA 
(93)3014700 



D G R fl m fl 



Lote Optimo 




i CO NT p.ir.i conti 

L-lprogwrna-Aquello! 



* 



puuilc cjIoiIj. el I. 
mu pjrj l.i rcpoci 



douiiididci jpuditijiii 



idi eu .imm^Jo S , 
, ,! prewo umwrio. 

.il.ii l -|pi-L)pr,inu 1 i|i.i 



ii. 52U.53Q) 54U.yaquc 
IIMIJ Ji-un supiR'ilOpJrJ 
J ml U '.i-v.il eJ 65t)yV 
I JB%. U uinu asi obtc- 



10 


REM cco&ertura 






20 


REM r=codigo 








REM u=precio unitaria 




40 








50 


REM p=p. pedido 






to 


GO BUB 500: REM E 


emplo 




70 


INPUT "Introduzca 


nombre 


Dr 


oveedor",pt 






BO 


PRINT "FrDveedar" 


P* 




90 


LPRINT "Praveedar' 


.pS 




91 


PRINT 






92 


LPRINT 






100 


PRINT TAB 5; "codigo";TAB 


15 


; "max. " ; TAB 21 5 "p.pedido" 




110 


LPRINT TAB 5; "cod 


go" -.TAB 1 


5;"m 


ax. ";TAB 21; "p.ped 


do" 




130 


LPRINT 






150 


INPUT "Introduzca 






cod 


go",r 






170 


INPUT "Introduzca 


precio 


un 










ISO 


INPUT "Introduzca 


numero 


de 


sal 








190 


LET p=INT <s/4> 






200 


LET w=5QR (s/u) 







210 


LET b = INT (5B.3*l*> 


220 


IF p>=b THEN LET m=INT <p+ 


p/3> 




230 


IF p<b THEN LET m=p+b 


240 


PRINT TAB 6;riTAB 16;m;TAB 


24; p 




250 


LPRINT TAB 6;r;TAB lt:m;TAB 


24; p 


260 


PRINT 


270 


LPRINT 


260 


GO TO 150 


500 


REM curva.escala 4*, 1/700* 


510 


LET 5=183 


520 


LET a =650 


530 


LET t=0.38 


540 


LET u=5000 


550 


FOR q=l TO hi 


560 


PLOT 4*q,l/700*a*s/q 


570 


PLOT 4*q, l/7O0*q*iJ*t/2 


560 


PLOT 4*q, 1/700* (5/q*a+q*u*t 


590 


NEXT q 


595 


STOP 


600 


RETURN 



□ g r R m ft 



Perspective! Axonometrica 



observarij un objeto iridi- 
mensional desde un drter- 
miii.iju pun to di 1 enfbque 
.1 ingulo, 

En l.t primers pane del 
program.! se h.t de inimJu- 



foordenaiiis du' esos pun- 

punio I (0, (l. 0), puntoi 
(ii. 4(1. 0), puiuu .1 (0. 30. 
60) y punto4(50, .((i, .Kii. 



1-2. RECTA 2-.!. RECTA 

it. recta \-a. recta 

2< RECTA 3-4 y para pa- 

vir.i Li Ijseslguti un rubra - 

que li.ua RECTA li-(i. 




Lucgo 

illljUllos 



inlrodutcil 



Porejemplo si <ju 



cutrpo, pdiig.in l'I letraedrc 



do: pur L-K'mpKi. Z'OX = 
120. Z'OV = 120 (Spet 



1 BORDER 1: PAPER 1: INK 6 


5 PRINT 


AT 11.0 


'■aea prespect 


IVA AXONOMETR1CA iaia@" : PAUSE 250 


: CLB 






10 PRINT 


AT 3.0; 


'Con este pro 


grama podemos repr 


=sentar cualqu 


ler objeto 


tridime 


Tsional sabre 


una super* 


cie bid 


mensional med 


lante el 


si sterna 


aKOnometrico. 


15 PRINT 


AT 15, 1 


"PLilsa una te 




ntinuar 


": PAUSE 


16 CLB 






20 PRINT 


AT 3,0; 


Cualquier obj 




-farmado 




de puntDS 


y de re 


tas que Id? u 


nen. Cada | 


unta en 


un espacia tr 






tres coordenadas. " 


PRINT AT 16, 


l!"Pulsa ui 


a tecla 




r." ! PAUSE 







30 CLS 






40 PRINT 


"Especi 


icar numero d 



e pu 


ntos a 


representar 






INPUT r- 


: PRINT Ns 


DIM 


C(N,3 


52 


PAUSE 50 






55 


CLS 








6i. 


PRINT ' 


Entrar las 


coordenad 


3S 


de las 


PLintos del 




iente 


mo 


do, pri 


mero la 5 Z 








■or ultimo 






65 


PRINT 








70 


FOR A=i 


TO Ni PRI 


MT A 


,. <,.. 


71 


FDR B=I 


TO 3 






72 


INPUT D 










LET CCA 


B>=D 






B2 


PRINT C 


A.B) j ". "; 






90 


NEXT Bi 


PRINT ")" 


NE> 


T A 


91 


PRINT AT 5,14i"TE 


HAS 


EQUIV 


OCADO?": PRI 


-iT AT 6,23 


"S/lv 




PUT RS: IF R4="S" OR R*="s' 


THEN 


. PRINT AT 7 


14; "CUANTAS VECES^ 


"; : INPUT V: 


PRINT V; PRINT 


AT S 


. 14f 


DAME PRIMERQ EL": 


PRINT AT 



R D 



r P\ m a 



9. 14 


"PUNT0 DESPUE5 LAS"! PRINT 


AT 1 


, 14s "COORDENADAS 


: FOR M=l 


TO v 


INPUT A: PRINT 


IT H.14;A; 


..,,.. 


POR B=l TO 3: INPUT D: LET 


C(A 


B)=D: PRINT D; ", 


;: NEXT 6: 


PR I 


T ")"l NEXT M 




92 


CLS 




93 


PRINT " A cont 


nuacicn ap 




a los pun 


tos en representacion 




PRINT : PRINT : PRINT " Apare 


cera 


tambien en la pa 


te mteria 


r la 


palabra RECTA, con ello se 


te p 


de que vayas in 


roduciendo 


las 


rectas que componen el obje 








74 


PRINT : PRINT : PRINT " C 


uandD hayas finalizsdo escribe R 


ECTA 


- 0": PRINT : PRINT : PR I 


NT " 


Pulsa ENTER pa 




r"! PAUSE 5000 




95 


CLS 




96 


PLOT 23, B8: DRAW 


208,0: PLC 


T 23 


16: DRAW 0, 144 




97 


PRINT AT 20, 1; "Y 


: PRINT AT 


1. 1 


"Z": PRINT AT 10 


30; "X" 


100 


FOR A=l TO N 
LET Dl=C(A,2)+23 




112 


LET D2=88-C(A,3) 


LET D3=Cl 


A. 1) 


i-BS 




124 


PLOT Dl, D2: PLOT 


D1.D3 




NEXT A 




151 


DIN D(4*N.2> 




152 


FOR C=l TO 4*N 




160 


PRINT AT 20. 16! " 


RECTA "; 


170 


INPUT Ti PRINT T 


: PRINT " 


- "; 


: INPUT Y: PRINT 


Y 


173 


LET DtC,l)=T: LET D(C,2>=Y 


175 


IF T=0 THEN BO TO 206 


180 


LET Xl=C(T,2>+23 


LET X2=-l 


*{C( 


r,3>)+88i LET X3=C (T, 1 ) +88 


190 


LET Jl=C(Y,21+23 


LET J2=-l 


*!C< 


{, 3) 1+SB: LET J3 


=C(Y, D+8B 


200 


LET 04=J1-Xl! LET Di-Xl-Jl: 


LET 


02=(X2-J2): LET 03=J3-X3: P 


LOT J1.J2: DRAW 01,02 


PLOT XI, X 


3: DRAW 04.03 




205 


NEXT C 




206 


CLS 




210 


PRINT AT 9,0; " 


A continua 


cion 


se te peOirael 


valor de 1 


□s angulos Z'O X* y 


'0 Y' qued 


andote representadaen 


dicho sist 


ema 


axonometrico elob 


etc desead 


° 









PAUSE 700 




220 


CLS 




222 


PRINT AT 2,21: 


"Z'O X' = ";; 


INPUT X: PRINT Xs P 


RINT AT 3,21; 


"Z'O 


Y'= "; : INPUT 


Y: PRINT Y 


240 


LET A=X/180*PI 


: LET SX=90*S 


IN A 


LET SY=90*CDS 




260 


LET Yl=360-Y: 


LET A5=Y1/180 


*PI: 


LET SX=90*SIN 


A5i LET BY«90 


*cos 


A5 




400 


LET AL=X-90: LET BE=Y-90: L 


ET GA=90-AL-BE 




405 


LET AL=AL/1S0 


PI: LET BE=BE 


/1B0 


*PI: LET GA=GA/ 


1B0*PI 


407 


DIM E!N,2) 




410 


FOR v=l TO N: 


LET X1=C(V,2> 


*C05 


AL: LET Y1=CC» 


,3) *C05 BE-. L 


ET Z 


I«C(V, 1)*C0S GP 




42C 


LET X11=X1*C0E 


AL: LET X12= 


-1*X 


ItSIN AL 




430 


LET Y11=-1*Y1*C0S BE: LET Y 


12=- 


*Y1*SIN BE 




440 


LET R1=X11+Y11 


+12B: LET R2= 


X12+Y12+8S+Z1: PLOT 


R1.R2 


460 
2 
470 


LET E(V. 1)=R1: 


LET E(V,2)=R 


NEXT V 




480 


FOR K=l TO 4*N 


: LET W1=D(K, 


1>: LET W2=D(K,2) 




4B5 


IF W1=0 THEN 


GO TO 510 


490 


LET X1=E!W1, 1) 


s LET X2«=E(W2 


'11* 


LET Y1=E(W1,2> 


: LET Y2=E(W2 


500 


LET 05=-X2+Xl: 


LET 06=-Y2+Y 


1: PLOT X2.Y2! DRAW 


05,06 




NEXT K 




600 


PRINT AT 21,0; 


■Ouieres vari 


sr lc 


g angulos? (S/N 




602 


INPUT r*: IF r 


S="S" OR r«=" 


s" THEN GO TO 609 




603 


PRINT AT 21,0; 


'Deseas volve 




mpejar? (S/N) 


": INPUT r$: 


IF r 


*="S" OR r»="e 


THEN GO TO 


604 


GO TO 640 




608 


PRINT "Entrar 


as coordenad 


as de los pun tos del siguiente 


mode 


, primero las 


Zs, segundo 






609 


CLS : PRINT AT 


21,0; "Idt-rod 


uce 1 


as nuevos angu 






GO TO 222 




620 


REM F. J. R. CH. 



D D R fl m fi 



ULill- 



F.l programs permite v 
desde cualquiei angulu i 
cuerpo elegido entre I 

i|ue compunen el men 
cubo, prism j hexagon. 
piramide y octaedro. ' 
zando las ltdas del i 
scpucdegirarelobje 
i/,i]uit'rd.i (5). ,1 la dt 
(8). aceicarse (7), al 
dcef (6),subiref obji 
y bajarlo(b). La reel 
permite volver al 
(Speelrum 16K), 




Perspective! 
Conica 





j 


REM ge 


nme 


-ria 












BORDEf 


/ 












!=i 


LET psi 




LET 




LET 


ng 


=p 




LET r- 


200 


LET 


c=BO 


LET 


d- 




° 


PflPER 


7i 


NK 


BRIGHT 





r fl m a 



19 


CLS 






PRINT AT 2,6; "«PERSPECTIVA 


CONICA*";AT 4,4s"Elija 


n cuerpo 




a lista" ;AT 5,4; "p 




u numero: " s AT 7,8; " 


S,B{ 


2 - PIRAMIDE";AT 9 


8s "3 - P 


RISMA";AT 10,B;"4 - OCTA£DRO";AT 


12, 


as "(Durante el programa: " ; AT 


14, 


0; "7=Acercamienta" 


AT 15, 10 


; "6=Alejamiento";AT 16, 


0; "5=Izq 


uierda": AT 17, 10; "e=Derecha";fiT 


lB,10;"5=Subir";AT 17, 1 


is "b=Baja 




r 20, 10; "m=Val ver a 


menu" 


40 


IF INKEY4="1" THEN 


PRINT A 


T 2,6;" ESPERE 


": PR 


INT AT 7,7; ">": SO TO 1 


iO 


50 


IF INKEY* = ' , 2'- THEN 


PRINT A 


T 2, 


a; " ESPERE 


" : PR 


INT AT B,7; ">": BO TO 2 


jO 




IF INKEY*="3" THEN 


PRINT A 


T 2,6;" ESPERE 


" : FR 


INT 


*T 9,7; ">": GO TO 4 




70 


IF INKEYS="4" THEN 


PRINT A 


T 2,6; " ESPERE 


" : PR 


INT AT 10,7; ">"; GO TO 550 


90 


GO TO 40 




100 


RESTORE 125: LET pt-lOl LET 




90 




110 


DIM x Ipt) : FOR t=l 


TO pt 


115 


READ x ( t ) 




120 


NEXT t 




125 


DATA -50,-50,50,50 


-50,-50, 


50.50,9,0 




130 


DIM y (pt) : FOR t=l 


TO pt 


135 


READ y(t) 




140 


NEXT t 




145 


DATA -50,50,50,-30 


-50,50,5 


0,-50, 150, 150 




150 


DIM Z (pt) : FOR t = l 


TO pt 


155 


READ z ( t ) 




160 


NEXT t 




165 


DATA 0,0,0,0, 100, 1 


iO, 100, 10 


0,0, 






170 


PAPER 0: INK 7: BR 


GHT 1 


180 


GO TO 1000 




190 


CLS 




195 


PLOT 0,c: DRAW IN 


5; BRIG 


HT 


255,0 




200 


RESTORE 225: FOR t 


1 TO 13 


210 


READ V,W 




215 


PLOT 12B+m{v) ,n(v) 


DRAW m! 




v) ,n(w)-n Iv) 




220 


NEXT t 




225 


DATA 1.2,2,3,3,4,4 


1, 1.5,2, 


6, 3, 7, 4, B, 3, 5, 5, 6, 6, 7, 7 


8,9,10 


230 


CIRCLE 128+m(lC»,n 


10)+<n(l 


0>-n 


9))/10, (n<i0)-n<9) 


/IO 


240 


GO TO 1100 





25C 


RESTORE 27 


.>: LET p 


t=<? 


LET 


cu=320: LET ang 


=2.74BB936 




255 


DIM x Ipt) ! 


FOR t=l 


TO 




26C 


READ «<t) 








265 


NEXT t 








27<I 


DATA -50,- 


50,50,50 




J,0,O, 


275 


DIM y (pt) : 


FOR t=l 


TO 


Pt 


2SC 


READ y(t> 








285 


NEXT t 










DATA -50,5 


J, 50, -50 


0, 


50, 15 












295 


DIM z (pt) : 
READ z (t) 


FDR t=l 


TO 


Pt 


305 


NEXT t 








310 


DATA 0,0,0 




50 


40,30 


313 


PAPER 0: ir 


K 7: BR 


GHT 1 


315 


GO TO 10O0 








320 


CLS 








325 


PLOT 0,c: DRAW IN 


i. 5 


BRIG 


HT O 










330 


RESTORE 37 


: FOR t 


= 1 TO 11 


340 


READ v,w 








350 


PLOT 12B+m 


v) ,n (v) 


DRAW m( 










360 


NEXT t 








370 


DATA 1.2,2 


3,3,4,4 


1, 


,5,2, 


5,3, 


,4,5.6,7,7 


8,B,9 






380 


GO TO 1100 










RESTORE 42i 


: LET pt=12i LET 


cu=475: LET ang=PI/2: LET 


c = 100 


405 


DIM K <pt) : 


FOR t-1 


TO 


pt 


410 


READ :i (t) 








415 


NEXT t 








420 


DATA -100,- 


100,-100,- 


00 , - 1 


00,- 


00, 100, 100 


100, 100 


101 


, 100 


425 


DIM y(pt): 


FOR t=l 


TO 


pt 


430 


READ y(t) 








435 


NEXT t 








440 


DATA 25.50 


25,-25. 


50 


-25,2 






-25 






445 


DIM z (pt> : 


FDR t=l 


TO 


Pt 




READ z(t> 








455 


NEXT t 








460 


DATA 0.43.3.B6.6,B6.6 


43.3, 


0,0,43.3,86.6,84 


.6,43.3 







465 


PAPER 0: INK 7: BRIGHT 


1 


470 


GO TO 1000 








475 


CLS 








480 


PLOT 0,c: DRAW INC 


5; 


BRIG 


HT 


255,0 








485 


RESTORE 50= 


: FOR t= 


1 TO IB 


490 


READ v,w 








495 


PLOT 12B+m 


v) ,n(v) 


DRAW m( 












5O0 


NEXT t 








505 


DATA 1,2,2, 


3,3,4,4 


5,E 





R D 



r P\ m a 



1,7,0,8,9,"?, 10, 10,11,11 


12, 12,7, 


1,7,2,8,3,9,4, 10,5, 11,6 




510 


BO TO 1100 




550 


RESTORE 570: LET p 


=10: LET 


eu»623: LET c=100 




555 


DIM * Iptl : FOR t = l 


TO pt 


560 


READ X ( t ) 




555" 


NLXI t 




570 


DATA -50,-50,50,50 


0,0,-15. 


0, 15 







575 


DIM y (pt> : FOR t = l 


TO pt 


580 


READ y<t) 




5B5 


NEXT t 




590 


DATA -50,50,50,-50 


0,0,125, 


150, 


25, 133.66 




595 


DIM z <pt) : FOR t=l 


TO pt 


600 


READ a(t) 




605 


NEXT t 




610 






0,75 






615 


PAFER 0: INK 7: BRIBHT 1 


620 


GO TO 1000 




625 


CLS 




630 


PLOT O.c: DRAW INI 


5; BRIG 


HT 


255,0 




635 


RESTORE 655: FOR t = 


1 TO IB 


640 


READ v.w 




645 


PLOT 12B+m<v),n(v) 


DRAW m( 




v) ,n (w)-n(v) 




650 


NEXT t 




655 


DATA 1,2,2,3.3,4,4 


1, 1,5,2, 


5,3,5,4,5, 1,6,2,6,3,6,4 


6,7,8,B, 


9.9.7,7, 10. 8, 10.9, 10 




660 


GO TO 1100 






LET a=r*COS angi LET b=r*SI 


N ang: DIM m(pt): FOR t= 


I TO pt 


1005 


IF a=p;; THEN LET 


(tl=d*( I 


x (t) 


a>/ <y<t>-b) > : GO TO 1030 


1007 


IF a=K (t> AND w (t) 


>p* THEN 


LET r=r+20s ED TO 100C 




ioio 


LET m(t)=d*TAN (AT 




/(pR 


a> >-ATN ( (y(t)-b) / 


>!<t)-a>> 


1020 


IF 128+mtt) >255 OR 


12H +m <t> 


<0 THEN PRINT fit I , 5i "DEMASI ADO 


CERCA": GO TO 1100 




1030 


NEXT t 




1050 


DIM n(pt) s.-FOR t=l 


TO pt 


1060 


LET n<t)=; (t) + < <c-z 


(t) >/SQR 


( (a 


-x (t) )*(a-K (t) >+(b-y(t> ) * (b- 




) 1 *tSQR < (a-K <t> >* 


a-n (t) )+ 




t))*(b-y(t) >>-5QR 


m(t) »m(t 


>+d'-2) ) 




1070 


IF n(t>>1.7S OR nit 


<0 THEN 


PRINT AT 1 .5; "DEMASIADO CERCA": 


BO TO 1100 




10S0 


NEXT t 





109O BO TO cu 


1100 IF 1NKEY*="8" THEN LET ang 


=ang*PI/16j BO TO 1000 


1110 IF INKEY»="5" THEN LET ang 


=ang-PI/16: BO TO 1000 


1120 IF INKEY*="6" THEN LET r=r 


+20i GO TO 1000 


1130 IF INKEY*="7" THEN LET r=r 


-20: GO TO 1000 


1140 IF INKEY*="s" AND c+20<=175 


THEN LET c=c*20: BO TO 1000 


1150 IF INKEY*="b" AND c-20>=0 T 


HEN LET c«c-20: GO TO 1000 


1160 IF INKEYS="m" THEN PAPER 7 


: INK 0! BRIGHT 0: GO TO 5 


1 170 GO TO 1100 


*PER8PECTIUR CONICfl* 


ELija nn C U a r P O d «=- L 3 i i = i a 










4. - OCTflEDRO 


*Duran te el program* : 




























1 


u 




■*"•" -l »«no 


a 




M 











U 



#r 



i e 



r p> m fi 



#^ 




^ 



I It' ')i h») 



COMPUTERS. S.A. 



iiPRECIOS ESPECIALES 
PARA COMERCIANTESH 



COMMODORE - 64 

COMMODORE -16 

ZX SPECTRUM - 48K 

SPECTRUM PLUS 

QL SINCLAIR 
AMSTRADYMSX 

PERIFERICOS, PROGRAMAS, 
LI BROS NACIONALES, FXFRANJEROS, ETC. 



6 MESES DE GARANTIA 
PARA ORDENADORE.S Y PERIFERICOS 



indEBnamp 



Debido a la gran expansion de la empresa 

cambiamos nuestro domicilio social, 

el dia siete de enero, 

a una nueva nave de 1.000 m* 

con tres plantas a su servicio, en la 

Avenida del Mediterraneo n.° 9; 

Telefonos: 433 44 58 (5 lineas) 
433 45 48 
433 48 76 

28007 Madrid 



R □ 



R R m R 



Control de Peso 




Para 



sque: 






lugar y poco m-is. !e pre- 
senlamos un progfania que 
ayudar 



cedcr- 
programa pide 



pcrs 



,.,l,s 



:allu 



< del i 



nidas. 



, peso y 



los 






perimen 
proccsa y corns 
rated tn forma 
contrario deberi seguii 
puna dieta pjra rebajal pe- 
so. De tcdos inados no sc 
salva nadit ya que los del- 





10 


CLS : PRINT "PARE LA CINTA" 


20 


PRINT s PRINT st PRINT " 




CONTROL DE SU PESO"! PRINT 


AT 19,9s "PULSE UNA TECLA": PAUSE 


°30 


CLS 


40 


PRINT AT 2. Is " INTRODUZCA LO 


S DATQS SIGUIENTES": POKE 23609, 


10 




50 


PRINT AT 4. 4; "Peso (en kg)i 


60 


INPUT p: IF p<50 OR p>150 T 


HEN 


GO TO 50 


70 


PRINT p 


BO 


PRINT AT 6,4;"Talla (en cm) 


90 


INPUT t: IF t<140 OR t>200 


THEN 


GO TO 80: 


100 


PRINT t 


110 


PRINT AT 8.4; "Pen metro tor 


ax (en cm) t "i: INPUT per: IF pe 


r<30 


OR per>170 THEN GO TO 110 


120 


PRINT per 


130 


LET pip=t*per/240 


140 


LET pi=50+0.75* (t-150> 


150 


LET pim=(pip+pi)/2 


160 


LET ep=( tp-pim) /pirn) «100 


170 


PRINT AT 19.6;"PUL5E UNA TE 


CLA" 


PAUSE 0: CLS 


180 


PRINT AT 6,2-. "SU PESO IDEAL 


ESTA EN TQRNO A " s : PRINT AT S, 



10: INT pisn:" kgs": PRINT 

190 IF ep<=10 THEN PRINT "NO P 
ADECE OBESIDAD". , . : FOR x-1 TO 3 
s FOR 1=5 TO 1 STEP -1: BEEP .5, 
i: NEXT i: NEXT li 
200 IF ep<-10 AND ep>=-19 THEN 
FRINT "ESTA USTED EN EL LIMITE 
DE LA ", , "DELGADEZ. LE CDNVEND 
RIA GANAR AL"., "GUN KG.": PRINT 
•. PRINT " PULSE UNA TECLA" 
210 IF ep<-19 THEN PRINT "ESTA 
USTED DELGADO DEBERIA CON-",,," 
SULTAR A SU MEDICO": PRINT ! PRI 
NT " PULSE UNA TECLA" 

220 IF ep<-10 THEN PAUSE O: CL 
S : PRINT "ESTDS CONSEJOS LE PUE 
DEN HACER ",, "GANAR PESO:": PRI 
NT : PRINT "BEBER LECHE EN VEZ D 
E AGUA ".."TOMAR EL PAN CON 
MANTEQUILLA ",," TOMAR POSTRE 
S DULCES ". , "CONDIMEN 

TE CON ACEITE FRITO": GO TO 300 

230 IF epMO AND ep<16 THEN PR 
INT "ESTA EN EL LIMITE DE LA OBE 
SIDAD", , , , "POR LO QUE DEBERIA SE 
GUIR ESTDS 

CONSEJOS :": PRINT AT 
19, 6i "PULSE UNA TECLA"! PAUSE 
! CLS : PRINT "LE CONVIENE PERDE 
R ALGUNOS KGS 

SOLO ES CUESTION 



R D 



DE VOLUNTAD 








NO CDMf 


ENTRE HOR 


AS 








NO TOME 


ALCOHOL N 


I BEBIDA5 AZU- 






CARADAS 






DISMINUYA LA MANT 


EQUILLA. 








EL PAN 


Y LOS DULC 


E5" 






240 IF ep>l 


' AND ep:. = 


30 THEN P 


RINT "EXISTE 


OBESIDAD 


)E 6RAD0 I 


";INT ep;'-/. 


: PRINT : 


PRINT "LE 


CONVENOR I A HACER UNA 


)1ETA 






CO 


WSULTE A SU MEDICO" 




250 IF Bp>3 


i AND ep<« 


50 THEN P 


RINT "EXISTE 


OSES I DAD 


)E GRADD I 


I "; INT ep; " 


.": PRINT 


: PRINT "L 


E CONVENOR 1 A 


HACER UNA 


DIETA 

C 


QNSULTE A SU 


MEDICO" 


260 IF ep>5 


■ AND «BP<= 


.00 THEN 


PRINT "EXI5TE OBESIDAD 


DE GRADO 



R r m R 



CDNSULTE A SU MEDICO" 
270 IF ep>100 THEN PRINT "EXIS 
TE 0BE5IDAD DE 5RAD0 IV "iINT ep 
;"X": PRINT : PRINT "NO DEJE DE 
CONSULTAR A SU MEDICO" 

280 PAUSE Ol CLS : PRINT : PRIN 
T "LA OBESIDAD NO E5 UNA ENFERME 
DAD",,"LO QUE NO QUIERE DECIR QU 
E UNA ",, "PERSONA OBESA ES UNA 
PERSONA SA-",,"NA COMO SE CREIA 
TRADICIONALMEN-", . "TE" 

290 PRINT : PRINT "NO TRATE DE 
HACER DIETAS POP SU ",,"CUENTA 
Yfl QUE UNA DIETA HA DE ' ",."SER 
ANTE TODO EOUILIBRADA Y CON-",, 
"TROLADA FOR UN MEDICO" 

30O PRINT : PRINT : PRINT " 
PULSE UNA TECLA": PAUSE 0: CLS 
310 PRINT "PULSE UNA TECLA PAR 
A EMPEZAR": PAUSE 0: SO TO 30 



Etapa Amplificadora 



L-Upj jrnplitn.idoi.i 



dcben 



i. Para 



:s ditos: primcro la icn- 
>n ion la que sedesea alt- 



Stan de emuJa y U de sjIj- 
da y por ultimo, la torricn- 
ic del toleLior del rransis- 
tor, que dependc del lipo 
de transistor que « vaya a 
unli/at. siendo fos valores 
de miliamperiui los mjs 
norniale.v El projtrama if 



puede divider en 
p. inc.. cilculode k 
ponentu, genetad 

simbolo del uhmic 
de tesiMctuJai conn 
v pi>r ultimo en es 
del cireuito, 















Wm 


R □ 




R R m fi 








5 REM ** Jorge *« 




520 RETURN 






7 REM ** 2B-VI-1984 ** 




590 REM Dibujo del circuits 






10 REM Etapa amplif icadora 




600 RESTORE 700: PRINT "Segun e 






15 CL5 : GO SUB 500: GO SUB 60 




1 circuito" 











610 FOR n=l TO 49: READ p,O p i,3 






20 REM ealculo de componentes 




620 PLOT p,o: DRAW i,z 






30 INPUT "Tension Vce(V»="sa 




630 NEXT n 






40 INPUT "Relation de amplific 




700 DATA 74,74,0,7,74,01,9,0,83 






acion Av="fb 




, 04, 0,-B, 87, 84, 0,-8, 07, 81^27,0, 1 






45 CLS : PRINT "Vcc=" ; a; " V" , "ft 




14,85,0,-9, 100,81 ,8.0, 97.89,6,0, 










103,89.0,8, 103,97,-6,0,97,97,0,- 






50 INPUT "Corriente del colect 




8 






or Ic(A)=";c 




710 DATA 100, 105,0, -B, 100, 105,5 






55 PRINT "Ic=";cs"A" 




5,0, 100,89,0,-8. 126. 105, 0,-B, 123 






60 PRINT "Re>"; .7/c; " elige se 




,97,6,0, 129,97,0,-8, 129,89.-6,0. 










123,89,0,8, 126.89,0,-5 






65 50 SUB 190 




720 DATA 126, B4, -4,0, 122,84,-6, 






70 INPUT "Ra<SD-"jdl CLS 




-3,74,66,0,-7,74,59,79,0,100,59, 






00 LET e=d*b: LET f=l.7-t(d*cl) 




0,7,97,66,6,0, 103,66,0,8, 103,74, 






B5 PRINT M Rc = ";d*b; " s r ; ,, ,"RB="! 




-6,0,97,74,0,-8, 100,74,0,7 






dj- jy 




730 DATA 126.59,0.6,123,66,6,0, 






90 PRINT "R1 = ";INT (e«a/-f);" Ci 




129,66,0,8, 129,74,-6,0, 123,74,0, 






","R2="; (e/ (l-(+Va> ) > j " £i" 




-8, 126,74,0,5, 126,79,-5,0, 121,79 






110 PRINT "01=02=470 microF/lfcV 




,-6,3 






11 * "Ce="; INT <1. 59/ (20*d 1*1000000 




740 DATA 126,84,10,0.136,87,0,- 






);"microF" 




6, 139,87,0,-6, 139,84,7,0, 146.B4, 






120 PRINT "Pot.Trl="; (a-(d*b+d) 




0,-7, 146,59,0,7 






*c) *c*1000; "mW" 




750 DATA 126,79,10,0,136,79,0,- 






122 PRINT AT 19, 0; "Vcc=" ; a; "V" ; 




7, 133,72.6,0, 133,69.6,0, 136.69,0 






AT 19, 15; "Ic=";ci "A" 




,-10 






125 GO SUB 600 




765 CIRCLE 115,82,7 






130 PRINT AT 2S,0;"De nuevo (S/N 




780 PRINT AT 13, 5i "EWT. " ; AT 10, 






J": IF INKEY*="" THEN GO TO 130 




9; ,I C1";AT 7, 12; "Rl"; AT 13,10;"R2 






140 IF INKEY*="S" OR INKEY*="s" 




";AT 13, 13: "Re" s AT 13,19; "SAL. " 






THEN RUN 




790 PRINT AT 15, 16; "Ce" ; AT 7,15 






150 STOP 




j"Rc"jAT 10, 17; "C2";AT 8,20;"+ V 






185 REM Resistencias comerciale 




";AT 14,20; "- V" 










800 RETURN 






190 RESTORE 240 

195 PRINT AT 4, 2; " i'i" ; AT 4,5; "iV* 
















iflT 4,9j '"i'i";AT 4, 12; "KCi" ; AT 4,16 








i-K^'iAT 4, 19; "KO";AT 4, 23; "M&' j 
AT 4,27j "Mil" 
















200 FOR n=6 TO 17i READ g 










210 PRINT AT n.ljgtAT n,5;g*10; 




segun et circuito 






AT n,8;g*100;AT n,12;g;AT n,16;g 










»10;AT n, 19ig*100iAT n,23jg 










220 IF n< = 10 THEN PRINT AT n,2 










7;g*10 










230 NEXT n 

240 DATA 1,1.2,1.5,1.8,2.2,2.7, 




Rl Re 






ri ri * " 












Cl D „D C2 






250 RETURN 








490 REM Grafico ft 

500 RESTORE 510: FOR n=0 TO 7: 


















READ j: POKE USR "A"+n,j: NEXT n 










510 DATA 24,36,66,129,129,66,36 










,231 







R D 



r fi m P\ 



Coche Loco 




NOTA.S GRAK1CAS: 


Linea I; AAAAAAAAAA 


Lint.! 2, 4, 6; C, D 


Lmea 7; BBBBBBBBBB 


LiiiL.i Mil, >44. 1000, I4V4, 


2999, 7999, H^yy, 4444 


9899; AA, BB 



1 


REM 




t* t* t* t* t* t* 


t* t» t* 






REM 


A 








3 


REM 




CRAZY CftR 






4 


REM 


S. 








3 


REM 




:ARL0S JIMENEZ 


DIAZ 




6 


REM 


A 






•t 













R D 



r r m r 



10 


GQ SUB 9000 


ao 


REM |a RUTINA PRINCIPAL tM 


90 


FOR c-1 TO 3 


93 


GO SUB 9SOO 


93 


BRIGHT Ol FLASH 0: BORDER 4 


l PAPER 4i INK Ot CLS 


100 


GO SUB c*1000 


110 


DIM a(.4> 


120 


LET ang^l 


130 


LET Q-li LET w-1 


133 


FOR t-1 TO lBOs REM TIEMPO 


140 


PRINT AT q,n}CHR» (143+ang> 


142 


IF INKEY*="o" OR INK£Y*="0" 


THEN LET ang-ang-1: IF ang=0 T 


HEN 


LET ang">4 


145 


IF INKEY««"p" OR INKEY»-"P" 


THEN LET ang-ang+lt IF ang=5 T 


HEN 


LET ang-1 


130 


LET a(*ng)-nlv 


160 


LET o-q: LET p-w 


170 


IF a(l>>0 THEN LET p-p+ll 


LET a(l>"a<l>-li IF atlXniv-1 " 


HEN 


BEEP .005,24 


160 


IF a<2)>0 THEN LET o-o+ll 


LET »<2)-*(2)-lt IF *<2Xniv-l T 


HEN 


BEEP .005,24 


190 


IF *(3)>0 THEN LET p-p-ll 


LET a(3>-al3)-li IF »(3)<niv-l 


HEN 


BEEP .005,24 


200 


IF a(4>>0 THEN LET o-o-ll 


LET a(4>-a<4>-lr IF a(4Xniv-l T 


HEN 


BEEP .005,24 


210 


PRINT AT q,W|" " 


220 


IF ATTR (o,p>-39 THEN GO T 


o aooo 


22S 


LET Q-Ol LET w-p 


230 


NEXT t 


240 


NEXT c 


249 
230 


REM t* t> FINAL FELIZ *i *t 




260 


FOR m-1 TO 21i LET c»=c«+c» 


(1 TO 32H NEXT m 


270 


FOR m-7 TO O STEP -1 


280 


PRINT AT 0,0| INK mi OVER 1 


!«:• 




29C 


BEEP .5,m«3 


300 


NEXT m 


31C 


LET z*~ "FalicidadM. .. 




Ha* con««guido dominar tu 




coch». 


Qu 


■r« int«nt»rlo otra veil? 


Tu 


niv«l d* d**tr*z« aumvnta «n 




PREPERATE" 



320 


BORDER 0: PAPER li OLS 1 


IN 


K 61 


BRIGHT 1 




330 


PRINT AT 0,0| 




330 


FOR m-1 TO 220 




360 


PRINT *»<m)| FLASH 1|"_" 


jCH 


R* B 






365 


BEEP .05,24 




370 


NEXT « 




380 


IF INKEY*-"" THEN GO TO 


3B 


390 


IF INKEY»«"S" OR INKEY»« 


..... 


THEN GO TO 420 




400 


IF INKEY«»"n" OR INKEY*« 


"N" 


THEN GO TO 9900 




410 


GO TO 310 




420 


FOR m-22I TO LEN Z* 




430 


PRINT z»(m)j FLASH li"_* 


;CH 


R* 8 






440 


BEEP .05,20 




450 


NEXT m 




460 


LET niv-nlv+1 




470 


BEEP l,Ol BEEP 1,12 




4B0 


GO TO 90 




1000 


REM 1* N CIRCUITO 1 «t *t 




1010 


PRINT AT 0,Oi INK 7\ "000000 


aoooooooooooaoooooaooaoooo " 




1020 


PRINT AT 21, Oi INK 7; "00000 


ooooooooooooooooooaoooooooo " 




1030 


FOR a-0 TO 21 




1040 


PRINT AT a.Oi INK 7;"0"; 


AT 


a, 31 


INK 7|"0" 




1050 


NEXT a 




1060 


PRINT AT 6,6; INK 7; "000000 


QDOOOOOOOOOOGO" 




107O 


PRINT AT 13,6( INK 7; "00000 


000000000000000 " 




1080 


FOR a-6 TO 15 




1090 


PRINT AT a, 6; INK 7["D"j 


AT 


• ,25 


INK 7l "0" 




1100 


NEXT a 




1110 


RETURN 




1999 


REM |a ta CIRCUITO 2 «t «* 




2000 


PRINT AT 0,0| INK 7 l "000000 


OOOODOOOOOOOODOOOOOOOOOOaO" f AT 2 


1,0) 


000000000000000000000000000 


00000" 




2010 


PRINT AT 1,0| INK 7t "0" 


AT 


1,28 


"OOODOOD";AT 2, 29| "00000" | A 


T 3, 


IOi"00"lAT 18,0; "00")AT 


B,3 


0|"00000"|AT 19,29f •'OOaODOO" 


AT 


20, 2B; "0000" 




2020 


FOR m »4 TO 17 ■ 




2030 


PRINT AT m,0; INK 7l "0" 


AT 


■,31 


"0" 




2040 


IF m>4 AND m<10 OR m>12 


AND 


ra<l 


7 THEN PRINT AT m,5| INI- 


7i 


"0"! 


AT m,13;"0"tAT m.l8|"0"iAT m 


,26. 


•0" 









IP R D G 


R R m fl 


3 




2050 NEXT m 




8040 IF INKEY*-"»" OR INKEY««"S" 




2O60 PRINT AT 4, 6; INK 7; "OOOOOO 




THEN RUN 




00**)AT 4, 18) "DOODOOOQ"; AT 5,6;"0 




B050 GO TO 8030 




QO"|AT 5,23)"QQ0")AT 6, 6; "00" ) AT 




8999 REM t* |» PRESENTACION «| 14 




6,24("00";AT 7,6("0")AT 7,25]"Q 




9000 RESTORE 9000s FOR a-1 TO 4 




"|AT 9,5; "OOOOOOOOO") AT 9, 18$ "00 




9010 READ a« 




OQOOOQQ" 




9020 FOR b-0 TO 7 




207O PRINT AT 13,5; INK 7; "00000 




9030 READ c: POKE USR a*+b , c 




0000"|AT 13, 18) "000000000" ; AT IS 




9040 NEXT b 




,6j"0";AT 15,25; "0"(AT 16,6)"DQ" 




905O NEXT a 




(AT 16,24)"00"(AT 17, 6; "00000000 




9060 DATA "a" . 224, 230, 235, 231 , 23 




"(AT 17, IB; "0DOO0OOO";AT IB, ii"0 




1,233,230,224, "b", 253, 255, 255, 36 




"(AT 1B,30( "OOOOO"! AT 19,29s "DOO 




,36,126, 126,60, "c", 7, 103,255,231 




0OQO")AT 20.2B;"DOOO" 




,231,255, 103,7, "d",60. 126, 126,36 




20B0 RETURN 




,36,253,255,255 




2999 REM 1* t* CIRCUITO 3 «J «l 




9071 PAPER 2: BORDER 2s INK 7i C 




3000 PRINT AT 0,0| INK 7s "000000 




LS 




OOOOOOOOOOOOOOOOOOOOOOOODO" ; AT 2 




9080 FOR a-0 TO 21 STEP 2 




0,2Bl"0DOOOOOOOOO0OO0OOOOQOOOOOO 




9090 PRINT AT «,0) PAPER h\ INK 




0000000000" 




3) FLASH li "CRAZY CAR" 




3010 FOR *-l TO 20 




9100 NEXT a 




3020 PRINT AT m, Oj INK 7;"0")AT 




9110 FOR a»l TO 21 STEP 2 




m,31)"D" 




9120 PRINT AT a, Of PAPER 3) INK 




3030 NEXT m 




6; FLASH 1) "CRAZY CAR" 




3040 PRINT INK 7;AT 1,12s "OOOOO 




9130 NEXT a 




000"|AT 1,28) "0Q000O0";AT 2, 13j " 




9140 PRINT AT 0,10) FLASH 1 J "Cui 




0OOO00"$AT 2,29: "00000")AT 3,14s 




dado, . . " 




"O0O0"sAT 3,30( , '00"[AT 4, 15) "00" 




9150 PRINT AT 2, 10; "Tu veloz cdc 




(AT 3,6) "OOQ"sAT 5, 15; "OO" s AT 5, 




hm va sin"; AT 3, 10; "f renos evita 




23|"000";AT 6, 3; "OOOOO" s AT 6,22) 




•alirt»";AT 4, 10) "del circuito. 




"OOO0O"jAT 7,5; "00 00"sAT 7,21; 




"(AT 8, 10; "P«Derechas";AT 9, 10; " 




"00 00";AT 8,5s"D0 00";AT 8,2 




0"IzqiJlerda" 




0)"00 00";AT 9,5s"00 00")AT 




9160 PRINT 81:"Escojb tu nivel < 




9,19s"00 00"|AT 10.5;"00 




1-9) " 




00"'lAT 10, 19} "00 00" 




9170 LET M«=INKEY* 




3050 PRINT INK 7$AT 11,5) "00 




9IB0 IF CODE M*>4B AND CODE M*<5 




DO"sAT 11,19("00 00"lAT 12,5 




B THEN GO TO 9200 




("00 00";AT 12,19|"00 00") 




9190 GO TO 9170 




AT 13,3i"00 00";AT 13,20s "00 




9200 LET N1V-VAL M* 




00")AT 14,5s"00 00";AT 14,21;" 




9210 RETURN 




DO 00"sAT 15,5;"D0000"sAT 15,22 




9499 REM t* NUMERO DE CIRCUITO t 




S"00000"sAT 16,6; "OOC'sAT 16, 15l 




9500 PAPER Oi BORDER 4: CLS 




"00"(AT 16,23s "OOD"sAT 17, 15; "00 




9520 LET b*-" 




"SAT' IS, Is "0"S AT IB, 14( "0000"! AT 




CIRCUITO " + 




18,30) "00000")AT 19. 13) "OOOOOO" 




STR* c+" " 




[AT 19,29s "DOOOOOO")AT 20, 12) "00 




9530 FOR a=l TO 51 




OOOOOO" 




9535 IF A+31>-52 THEN PRINT AT 




3060 RETURN 

7999 REM |a t* FATAL DESENLACE t| 

SOOO PRINT AT o,p; PAPER 7) INK 




11, Oi PAPER 1: INK 6;B*(A TO 51 > 
1 GO TO 9545 

9540 PRINT AT 11,0s PAPER lj INK 
6sb»(a TO A+31) 




1|CHR* <*ng+143)s BEEP .5,-10 
B010 PRINT AT 21, Oi INK 7s PAPER 




9545 BEEP .05, a/2 
9550 NEXT a 




Oj "Circuit " (C, "Tiampo "5 INT ( 




9560 RETURN 




t/3) 

8020 PRINT »ls"Otra (S/N)?" 
B030 IF INKEY*-"n" OR 1NKEY««"N" 
THEN GO TO 9900 




9899 REM l» t» M H t* FIN d «4 d 

9900 BRIGHT 0: OVER Os FLASH Ol 
INVERSE Oi PAPER 7i INK, Os BORDE 
R 7: BEEP 1,0: CLS 





R D 



R R m R 



Para Elisa 



mis que p.il.il 

■liillli •.'li.ill.l 


.... M' S ... 


cafa, qui o li 




pam lod.is Lis ; 




ntkl ^lum 


SLlfJlL'. I'll 


que ta quicn 
que If deipier 
mclodia come 
irum I6K). 


ici le K ui 




" '*• -I-: _ C":"-"_ ■-. 



10 DIM b<122> 

20 FOR n=l TO 122 

7-0 READ b(n) 

40 NEXT n 

50 FOR n=l TO 122 

60 BEEP . 22,b<n) 

70 NEXT n 



BO &t] TD 50 

OS 
101 DATA 11,12,04,09,04 

2,09,04,09,00,04,0"?, 11, 04, OB, 04, 

103 DATA 11,09,04,09,11.12.14,1 
6,07, 12,07, 17, 16, 14,07, 11,07, 16, 
14 


.9,4 
105 DATA 16,15,16,15,16,11,14,1 



DE TODA CONFIANZA 



ASIES: 



Por olgo es el Servicio Oficial INVESTRONICA para los productos SINCLAIR 

SIN SOBRESALTOS. 

Gracios al "COSTE ESTANDAR POR REPARACION" siempre sabes, de ontemano, lo que cuesta 

el reparar tu microordenador SINCLAIR, uno vez caducoda la garantia de tu equipo. 

Sin presupuestos previos, sin gaslos adicionoles, tenga lo que lengo 

tu microordenador, por mucno que sea, el coste siempre sera el mismo segun el siguiente cuadro: 




C/ Anbau, n ; 30. piso 5." 1 
Telfs (93)323 41 65-323 4 
06036 BARCELONA 


a 04 


C/ San Sotero, n.° 3 

Tells 754 31 97- 754 32 34 

28037 MADRID 


C/ Avfla 


Oe la Libertad n.° 6. Bioq 1 • Enll Izq D 
Tell (968) 23 18 34 
30009 MURCIA 


P 1 aeRonda, n°82, 1'E 

Te«: (958)26 15 94 

18006 GRANADA 




C/ 1 9 de Julio, n" 10-2." local 3 

Tell. (965)21 88 95 
33002 OVIEDO 


c/ 


Hemwnos del Rio Rodriguez, n.° 7 bis 
Tell (954)36 17 08 
41D09 SEVILLA 


C/ universidad, n.° 4 - 2° 

Tell: (96) 352 48 82 

46002 VALENCIA 




Avdo . de Gasteiz, n.° 19 A- 1 » D 
Tell (945) 22 52 05 

0100B VITORIA 

C/. Alates, n " 4 - 5." 

Teif. (976) 22 47 09 

50003 ZARAGOZA 




C/ Tfovesia de Vigo. n.° 32 • 1° 

Tell. (986)37 7887 

6 VIGO 


HORARIO DE ATENCION AL PUBLICO: de 9 h a 13 h. (excepto 


Madrid 


de8 1/2 h. a 17 1/2 h) 



AMPLIAMOS POR UN ANO LA GARANTIA DE TU SINCLAIR 

Si lu microordenador SINCLAIR aun esta con lo GARANTIA INVESTRONICA vigenie v deseos ampliarla por un oiio mas 

(a partir de la iecho Oe coducidad de la misma), nodo mas senallo: 

HIESA 1e amplia la garonlio por el mismo importe de lo que te costoria una feparacion. 

Relleno el cupon con lodos los dalos y envialos, con lodo lo que se te mdica, a la delegocion HISSA de MADRID. 

A los DOCOS dias reciDiras lu NUEVA GARANTIA. 



- CUPON - 



D. con domicitioen 

calle/plaza n.° telefono D.P. 

desea ampliar en UN ANO lo garontia de su equipo SINCLAIR, cuyo GARANTIA INVESTRONICA aiin esld vigente 

La lecfia Oe compro del microordenador fue el dia de de 198 

Para etlo adjunto, a esle cupon, la GARANTIA INVESTRONICA y un talon nominal a HISSA por el siguiente importe, 
que senolo con unaX________ — . r^T^rTl 

■jr ^gl : ta.1 50 PK&lT 'Frarinr el cupon Firmado: 

y — — r-^nR^TR250Ptas. I a HISSA. 

p-^wT48K: 1 6.30U WQSJ 28037 ^rid". 



R D 



Contable 



Aqui tenemos el progra- 
ms que l.lll.lb.l, Ull.l .!UtL-|)- 

tici jj;ciiU.i de ingrcsos y 
gjslos que It ptrmiliran 
llevilr un control absolute 
de todas las operadones 
que cfcctuc eti el mcs. Po- 
dra controlar. dwde los 
prcstamos hjpoteianos 
lusi.i Codo lo nue invierte j 
londo pcrdido, Al comen- 
zartl programa apareceran 
H opciones de las que debe- 
r.i elcgii una. A continua- 
tion demro del mcnii elc- 
gido podra " introduiien- 



R r m R 




10 


DIM D(132> : DIM 


E(132): DIM 


F*< 


32) : DIM G(132> 


DIM H(132) 


: DIM 1(132): DIM J* 


12) : DIM K( 


12) : 


LET N=0 




15 


INPUT "ANO EN CURSG DOS PRI 


MERA5 CIFRAS ";ANO 




20 


GO SUB 1000 




30 


INPUT "INTRDDUC 


R FUNGI UN 


";A* 






35 


IF A*<"1" THEN 


GO SUB 5000 


40 


IF A*="l" THEN 


GO TO 110 


50 


IF A*="2" THEN 


GO TO 360 


60 


IF A*="3" THEN 


GO TO 3800 


70 


IF A*="4" THEN 


GO TD 2B2 


90 


IF AS="5" THEN 


GO TO 470 


90 


IF AS="6" THEN 


GO SUB 3000 


92 


IF A»="7" THEN 


GO TO 4000 


94 


IF A*="B" THEN 


50 TO 3500 


95 


PAUSE 300: GO TO 20 


100 


IF 0S<"1" OR A* 




TO 


20 




110 

130 


LET N=N+1 
GO SUB 3000 




140 


INPUT "INTRODUCIR CLAVE " ; 


X* 






142 


IF X«="E" THEN 


GO TO 20 


150 


IF X*="«" THEN 


CLS : PRINT 


FLASH If "CLAVE NO VALIDA"; PAU 


SE 200: GO TO 130 




160 


INPUT "INTRDDUC 


R FECHA (AA 


MM) 


";E1 




161 


IF E1-(AND*100) 


12 DR E1-<A 


NO* 100X0 THEN CLS 


PRINT FLA 


SH 1 


"ERROR FECHA NO 


VALIDA": PA 


USE 200s GO TO 20 





162 


IF J*< 


E1-(ANQ*100) )="*" 


THE 


N CLS : PR 


INT FLASH li "ERR 


DR M 


ES CERRADO' 


: PAUSE 200: GD T 


3 2C> 


165 


IF X*= 


'C" THEN GO TO 2 


30 


170 


INPUT 


'PREVISION ?(S=SI 


/N=N 


0) 


;C* 






175 


IF C*= 


'E" THEN GO TO 2 




1B0 


IF C*= 


■N" THEN GO TO 2 


10 


190 


INPUT 


'VALOR PREVISION 


";G 


^00 


GO TO 


240 




210 


INPUT 


'VALOR REAL " :H1 






FOR M= 


1 TO 131 




213 


IF E(M 


)=E1 AND F« 1M)=X* 


AND 


G<M 


<>0 THEN GO TO 218 




214 


NEXT M 






217 


CLS : 


PRINT FLASH 1 i "ERROR 


NO HAY VALOR DE PREVISION": 


PAU 


SE 100: GO 


TO 20 




218 


LET G( 


M)=0: LET H(M>=H1 






GO TO 


2B5 






INPUT 


■INGRESOS "; I 1 




240 


FOR M* 


1 TO 131 




250 


IF D!M 


)=0 THEN GO TO 2 


b2 


260 


NEXT M 






262 


IF XS= 


•C" THEN GO TO 2 


30 


270 


LET F* 


(M)=X*i LET D(M) = 


M: L 


ET E 


M)=Els 


LET G(M)=G1 




275 


GO TO 


285 




280 


LET F* 


<M)=X»: LET D<M)= 


HI: L 


ET EtM)=El: 


LET I (M)=I1 




281 


GO TO 


2B5 




282 

MM) 


INPUT 


'INTRODUCIR FECHA 


(AA 








2B3 


IF El- 


< ANO* 100) >12 OR E 


1-(A 


N0*1 


0X0 THEN CLS : PRINT 


FLA 


SH 1 


" ERROR 


FECHA NO VALIDA" 




USE 


00: GO 


TO 20 




2B5 


LET 0= 


2: LET TI=0: LET 


TP=0 


: LET TR=0 






289 


GO SUB 


2000 




290 


FOR M= 


1 TO 131 




300 


IF E(M 


=E1 THEN GO TD 


"12 




NEXT M 






311 


DO TO 


330 




312 


LET 0= 


3*1 






LET Y= 


INT (0/1E) : IF 0- 




8 ) =0 


THEN 


50 TO 316 




314 


GO TO 


520 




316 


PRINT 


FLASH li AT 19. Is 


SIG 


UE";£ 


T 20, I 


"PAG. >": PAUSE 


000 


: LEI 


0=3: 


50 SUB 2000 




320 


PRINT AT 0,lsDfM>: PRIN 


AT 


0,8 


FStM) : 


PRINT AT 0, 11; Gf 


1) : 


PRINT 


AT 0, 


8sH(M) : PRINT AT 


0,2 


J i.2l' 


LET TI 


=TI+I(M): LET TP=TP+G 



R D 



R fi (Tl A 



(M): 


LET TR=TR+HIM> : LET TO=TP+T 


R: LET T 


TI-TO 


322 


LET M 


=El-lAN0*lO0) : LET K( 


Ml) = 


roT 




324 


PRINT 


AT 19,18;-' 




PRINT 


AT 19, ISsTOT: PRINT A 


T I" 


9; J*< 




325 


NEXT 






INPUT 


"DESEA CONTINUAR (S=S 


I/N=NO) 


D* 


340 


IF D* 


"S" OR D*="5" THEN 5 


TO 


20 




350 


GO TO 


3500 


360 


INPUT 


"N. QUE DESEA MODIFIC 


AR ? 


";D1 




361 


FDR M 


1 TO 131 


362 


IF D(M)=D1 THEN GO TO 370 


363 


NEXT 




370 


IF E( 


1=0 THEN CLS : PRINT 


FLASH 1; 


IMPOSIBLE NO EXISTE": 


PAUSE 300 


50 TO 20 


372 


LET BA=E(M)-IANO*100) 


374 


IF J* 


BA) = , '* M THEN GO TD 3 


78 






376 


GO TO 


400 


378 


CLS ! 


PRINT FLASH Is "ERROR 


MES 
400 


CERRADO": PAUSE 200: GO TO 


INPUT 


"MODIFICAR VALOR REAL 


CI) hODIFICAR INGRESOS (2>"jXl 


410 


IF XI 


2 THEN GO TO 440 


420 


INPUT 


"VALOR REAL ";H1 


422 


IF F* 


M)="C" THEN CLS : PR 


INT 


FLASH 


1; "ERROR NUMERO DE CL 


AVE C": PAUSE 200: GO TO 20 


424 


IF H{f 


)=0 THEN CLS : PRINT 


FLASH Is 


ERROR NO HAY VALOR RE 


AL": 


PAUSE 


200: GO TO 20 


430 


LET H 


M)=H1 


435 


LET E 


=*E(M) ; GO TO 285 


440 


INPUT 


"INGRESOS ": 11 


442 


IF FS 


M><>"C" THEN CLS : P 


RINT 


FLASH 1; "ERROR NUMERD NO E 


S CLAVE C" 


PAUSE 200: GO TO 20 


450 


LET I 




460 


GO TQ 


282 


470 


CL5 t 


LET TV=0: LET Y1=0 


4 SO 


FOR M" 


1 TO 12 


492 


IF J* 


M)«:"*" THEN LET Y1=Y 


1 + 1: 


50 TO 


500 


494 


LET TV=TV-t-K(fl> 


500 


NEXT f 




510 


LET VAL=TV/ Q2-Y1) 


520 


PRINT 


AT 6,2j"VALORACI0N " 


! 52S 


PAUSE 


400 


530 


GO TO 


so 



iooc 


CLS 










PRINT AT 


5,4; 


'l- 


INTRODUC 


CI ON 


DATOS" 








102C 


PRINT AT 


7.4; 




MODIFICA 


CI ON 


DATOS" 










PRINT AT 


9,4; 




CIERRE M 


E5" 










104C 


PRINT AT 


11.4 


"4- 


LISTADO 


105C 


PRINT AT 


13,4 


"5- 


VALORAC 


ION" 










1060 


PRINT AT 


15,4 


"6- 


LISTA C 


LAVES" 








1065 


PRINT AT 


17,4 




GASTO P 


OR CLAVE" 








1 06B 


PRINT AT 


19.4 


"B- 


FIN" 


1070 


RETURN 








2000 


CLS 








2005 


FOR W=I TO 31 






2010 


PRINT AT 


0,W; 






2011 


PRINT AT 








2017 


PRINT AT 


18, W 








IF W<7 THEN GO TO 2023 


2022 


PRINT AT 


20 , W 








NEXT W 








2030 


FOR W=l TO 20 






2041 


PRINT AT 


W,7; 






2042 


PRINT AT 


W. 10 








PRINT AT 


W, 17 






2045 


IF W>=19 


THEN 


GO 


TO 2060 




PRINT AT 


W, 24 






2060 


NEXT W 








2070 


PRINT AT 


i-i: 


NUMERD" 


2090 


PRINT AT 


1,B; 


CL' 




.2092 


PRINT AT 


1,11 


"PREVIS" 


2 1 00 


PRINT AT 


t , 18 


"V, 


REAL" 


2110 


PRINT AT 


1,25 


"INGRES" 


2120 


PRINT AT 


19, 1 


; "TOT.M" 




RETURN 










CLS 










PRINT AT 


3,4; 




PRESTAMO 


HIPOTECARIO" 








3020 


PRINT AT 


4.4: 


2- 


TELEFDNO" 


3030 


PRINT AT 


5,4; 


3- 


LUZ" 


3040 


PRINT AT 


6,4; 


4- 


ASUA" 


3050 


PRINT AT 


7,4; 


5- 


iMPuesTo 


C1RCULACI0N" 










PRINT AT 


8,4; 


6- 


IMRUESTOS 


VARIOS" 










PRINT AT 


9.4; 


7- 


C0NTR1BUC 


ION" 










3080 


PRINT AT 


10,4 


"8- 


GASTOS V 


AR I OS " 










PRINT AT 


11,4 


"9- 


CARGOS V 


AR I OS " 








3100 


PRINT AT 


12,4 


"A- 


VARIOS" 


3110 


PRINT AT 


13,4 


"B- 


CORTE IN 



D D R fl m fl 



RINT 



INGRESQS 



i NEXT 1 



GO " 



TOTAL CL 



CARGO DE 



FONDO I 



*- MES CERR 



3121 PRINT AT 

3122 PRINT AT 
OPERACION" 

3123 PRINT AT 
AVES" 

3124 PRINT AT 
SCONOCIDO" 

3125 PRINT AT 
RDIDO" 

3129 PRINT AT ! 
ADO" 

3130 RETURN 

3500 CLS : PRINT FLASH 1 i "PE8G8 
INE LA CINTA": PRINT : PRINT "PR 
EFARE CONEXION MICRO SOLAMENTE" : 

PRINT : PRINT "PULSE PLAY+REC" 
3520 PAUEE 400 

353G SAVE "CONTABS" LINE 20 
3540 CLS : PRINT FLASH 1 ; "REBDB 
INE LA CINTA": PRINT : PRINT "PR 
EPAFE CONEXION EAR SOLAMENTE": P 
RINT : PRINT "PULSE PLAY" 
3550 PAUSE 400 

3560 VERIFY "CONTABS" 

3570 PRINT "EN CA50 DE ERROR SAL 

VE LA CINTA MANUALMENTE Y VERYF I 

QUE SU SALVAMENTO" 

3580 STOP 

3800 INFUT "OUE MES DESEA CERRAR 

? (AAMM) ":E2 
3B01 IF E2-IAN0K100) >12 OP E2-(A 
NO*100>C0 THEN CLS : PRINT FLA 
SH Is "ERROR FECHA NO VALIDA": PA 
USE 200: GO TO 20 
3803 LET N=N+1 
3S04 LET E1=E2+1 
3805 LET E3=E2-(ANQ*100> 
3810 FOR M=-l TO 131 

3820 IF E<M>=£2 AND G(HK>0 THEN 
GO TO 3900 



900 

3860 LET I1=K(E3) 

3B62 LET J*(£3)="*" 

3864 LET X«="C" 

3870 GO TO 240 

3TO0 CLS ! PRINT FLASH 1; "ERROR 

NO ES POSIBLE EL CIERftE": PAUSE 

100: GO TO 20 
4000 LET G1=0: LET H1=0: CLS : G 
SUB 3000: INPUT "INTRODUCIR CL 
AVE " : K* 

4010 FOR M=l TO 131 
4015 IF KS="F" THEN GO TO 4025 
4020 IF F*CM)=K» THEN GO TO 402 

4022 GO TO 4030 



4040 PRINT " 

": PRINT "GASTO AL DIA 

= ";H1;" PTS": PRINT i PRINT 
"GASTO PREVISTO = "j6£j" PTS" 

4050 PAUSE 500: GO TD 20 

5000 PRINT "PARA PASAR DE ANO HA 
Y QUE HACER RUN.": PRINT 

5001 PRINT "EL PROGRAMA LE GUIA 
DE LA MANO. ": PRINT 

5002 PRINT "LOS CONCEPTOS SON MO 
DIFICABLES A VOLUNTAD.": PRINT 

5003 PRINT "LA INTRODUCCION DEL 
ANO Y MES EN CADA OPERACION NOS 
EVITA EQUIVOCOS SOBRE TODO AL PR 
INCIPIO DE CADA ANO.": PRINT 

5004 PRINT "LAS ""DIM"" D/E/FS/G 
/H/I SE PUEDEN MQDIFICAR DE AGUE 
RDO CON LAS CARACTERISTICAS DE M 
EMORIA DE CADA ORDENADOR.": F'RIN 



■ FAUSE i 



RETURN 



Pi □ 



pi n m r 








1 1 B 1 BBBliaKl IB i a 


JIU1.F1 1 -157!»l) 





Prestamos 
bancarios 



Yd podemos eontroUr 
los movimientos del Ban- 
to en loquese reficrealos 
prestamos, ya scan perso- 
nales o hipotecarios. Con 
un ZX-81 y un poco de 
licmpci (para leclear t 
programs), estaremos dis 
puestos j llevai a tabo al- 
go mas que una simple 
operation bancaria. El 
programa que esta basado 
en dos formulas matenia- 
ticas, nos da la oportuni- 
dad de saber lo que tene- 
mos que ir pagando por 
un prestamo. Esta com- 
puesto de una serie de va- 
riables y tadenas dimcn- 
sionadas que habra que 





3 Bias. 

Las 



, Tambie 



(..■IKlr.i 




R D 



r r m r 



OS valores que apare- 
entre los parentcsis 
dobks son los que se de- 
beran introducir median- 
e la instruction LET. 

El signifkado de las va- 
iables es el siguienic: 
\: Anualidad de amorti- 
zation en el Sistema 

D: lmporte prestamo 
concedido. En tablas 
C= 1001)000 pis. En 



capital pendiente 
puts del pago del 






cada periudo. 
Qj El valor en meses de 

la periodicidad de los 

rcLibos par.l el ta kulo 

de la fetha. 
MM: Indka el tries. 
SS: Indict el .inc. 
V: Total capital amorti- 

zadoenla lecba indi- 

U: Tota'l interests intlui- 
do el I.T.E. pagados 
liasta la fecha. 



T: Numero de petiodos H: Calci 




El programa lo podc- 
nos dividir en bloques: 

Litiea I: Calcula la 
inualidad constante. 

Linea 3: Calcula la pn- 
nera anualidad en Amur- 
ization Creciente. 

Lineas 5-63: Realiza el 



Lineas 65-68: Cuai 
la duration del presta 
es superior al a ~ 
milizada para 



999 e: 



.alidad C 



jentco 



n 00. 
70-99; Vii 

00-156: 




ibo. 



recibo. En lineas 120, 
121 takulael importe 
del recibo + I.T.E. re- 
dondeadoal multiple 
de 100 mas proximo. 

V: Capital 
en cada r< 

X: Importe total de cada 
recibo. 

L: Capital pendietile a: 
tes del pago del rei 



Contiene la longitud 
deTS (8,1). Tambien 



ZZ: Valede 1 a 4 segun e 
M: Tiempo en meses to 



O: Penodicidad en reci- 
bos segun DIM AS 
(4,12). 



.inualidad 

My N: Utilizados en bu- 
cks. 

0$:Variabk utilizada pa- 
ra la impresion con 3 
decimales. 

YS: Periodicidad Recibos. 




Op- 
Op- 

o P 



.ineas 200-216: 
n 2 del Menu, 
.ineas 300-316: 
n 3 del Menu, 
.ineas 400-404: 
n 4 del Menu. 



Linea 498: Crabau<>n 
I programa «PRESTA- 
OS» con autoejecueion. 
Lineas 500-512: Visua- 



:l Menu \ piik i.i|il'ii'!II 



este programa con 
tencia RUN. sine 
GOTO 500, yaqu. 
rrarian todas las vf 
ylastadenasintro. 
(ZX-81 16 K). 



I THEN COSUB 6S 



r fi m fi 






hfJUS' 



cugth 

int 7~me5.rn5s heo 






RIRSEL Til 



PRRR 



„;;"New-i 

* 1381 OR 1MKKY*<>CHR* HE) 

iaa if"zz=3 then goto 312 

li-i :-i-jTo vsl ■■109" 

15Q LET fi = INT ICfR{B(Ki/B 
IBS LET H=II4T (R*G+K) ,'B 
154 PRINT .j-T. CRRENCIfi; 



::FECMR FIRMS PTMC; 



ITE ■ "to 
ei5 'IF' 2Z=D~THEN PRINT 



RB i, ; " 



*i.R* tO>_;TRB" S^Z* 

■• Km "..tub 5,zj 

SOB PRiNT""!j:cd0TH CRECIENTE EN 
:oL: GO SUB URL "70" 



3 KM 



GOSUB URL. "SS" 

PRINT T-BIHERH CUOTH R-L " j I 

";trb as:-POR HB-SB WPW 

S. CON CUOTH CRE-CIENTE: ".; J 
fiNUflL" . THB 21; "ITE: " . G. - ".- 
Li S; vs.; RS~IO] .: thb S.; Z* 




10345 
9260 

S3?a 



221 t iQe® 



B7B 1000© 




CURSO DE 

FORTH 



(CUARTA PARTE) 



T"' en el capitulo anterior v,mos 

H l.i estruetura DO- LOOP y la 
-■-' lF...THEN.-.£NDiF.Aunque 

cipales es tract-mas usadas en -.'I BA- 
SIC ysu 
do poi ti 

guaie. El FORTH, jdemas de estas, 
olrete tin pat de mdudable uuhd.id. 



is a des 



...BEGIN (palabras FORTH) UN- 
Tli 



iiplia 



el BEGIN y cl UNTIL las que sercpi- 
ten. El lector a van/ado se habra pre- 
guntadorapidamente. 



liar una semi I la palabra que imp time 
una ftase y espera .1 que pulsemos 
una iccla.si estra esuna "AVtermina, 
yii no.vuelvea imprimirla rrase. En 
la ligura 2 vemos el listado. En p 



indo s. 



Begin... Uniil 



Li estmctura BEGIN... UNTIE 
>s permitc realkar, de un modo 



isdeinsttucciones 



Estos son 

do de veces. Pero al eontrarioque en 
cl DOO... LOOP, este ntimero no 
debe estar prefijado ,tl principle, sitio 
que el final del cklo lo fija una condi- 
tion dcterminada del program*. L.i 



hay ningiin bloque destinado a estt 
I'm. En realidad.se liacedesdedenirc 
del bloque de p.il.ibr.t.s. ahi rujli?-J- 
itnis lud.is las operai nines, uiinp.ira- 

tionesy entradas de datos que desea 
moi. Cuando la ejecucion llega al 
UNTIL, eomprueb.i si el mini era si- 
liudo en Li parte superior de la pil; 
e.s un Cera, si loes, seejecutj cl buck 
Je nuevo. En caso de que Eenga cual- 
quierotro valor, se sale del bucle y si 
' sigue ton las instrucciones contigud! 
(tigura l|. 



?Es- prime lit< 



rlugar, impritr 
indolainsrtuccion [. "trast 
1 upiiulo 1,1 



'|, que 









tin despues de la Camilla int 
otdcn.idor no le enlendeta), a conti- 
nuation le mandamos sali.tr de linea 
eon un CR. para que Li frase qucde 
bonila. v despues leemos un caracfei 
del teclado eon KEY. Se debe recor- 
dar que el KEY coge cl todigo ASCII 
de la lecla pulsada y lo almacena en 



. Pot t. 












.. 




I 






.... ^ 




•( BEGIN 


j-4..— 


)— 


UNTIL 1 1- (continu 

~ i 1 


acon.j 


""~" 


Numero SupwiM d 
FiOURA 1 


1 Stack) 


_J 





i> Tnp.ii.unos li 

mos Li labia de earacteres ASCII que 
dabamos en un niimero anterior, es 
el corresporidiente a la "A". Al reali- 
zar la eornparacion los dos nume- 
toslel del Ciir.it let leidudel teclado y 
el 65) son borrados y en su lugar se 
pone el resultado de la compa ration 
(1 si son iguales y qcro en caso 1011- 
tratio) como se muestra en la ligura 
3. Al lleg.it al UNTIL, se comptueba 
esle resullado y se ptocede en conse- 



REP1TE BEGIN 


VIVA MI SPECTRUM 


CR KEY 65 


UNTIL: 


FIGURA I 









do a l,i comparacion), liubiesemos que habiamc 

inodifkado el sinik. I'ar.i com.probar mente y los v 

esio, veamos en l.i tigura 4 mi Hsrado pile el budc. 

jrregidn do nuestra palabra RiiPl- Otr.i estruc 



TE.enelUseii 



dbUL-k(l. 



supe 



que 



lOiitroldel buclc! 



iiiii] par.it" ion. T-.sIl 1 no es el un iconic- 
todo de reaiizarlo, corns hemos vis- 
to, al llcgjr al UNTIL eomprueba si 
el aumero colocado en la pant supe- 
rior del stack es tin cero o un uno, sa- 
biendo esto podemos baeer una pala- 
bra que se rcpii.i durante una deter- 



mprobacion son 
introdueido prev 
liutando segiin se 

a de control, defi 
„,„„nlaralaincrior,e 
BEGIN... WHILE... REPEAT.En 

tenor,' indica doiidc cmpie/.i'el ' 
:. El REPEAT liace que se vueh 
petirelbudedesdeelBEGIN.p 



L.mtidai 

eeladoa 

palabra REPITF i 



vd REPEAT, 

rol d 



lesde e 



don de salida ss justo la contraria 
que en cl anterior. Siel numerositua- 
do en 1.1 pane superior del stack es un 
eero, se sale del bud ' 



L'PU L 



.id HI I 



escribe "YO", terminando la ejecu- 
ciciii. En la iigura 8 vcmos la ejecu- 
eiotl de la palabra, eon lo que impri- 
me y las teclas que pulsamos. 

Un metodo perfeeto de colgar el 
ordtnador de modo que iiunea pue- 
dasalirdelbuclecsquitrdWHll.K. 
En csic easo, al no existir la compro- 
baeion, la rnaquina ejetuia el butle 

apaguemos la maquma). 

Variables en Forth 

Todo lenauaje de programaeion 
posec variables. Este elemeiHoesini- 
piestiiidiblepar.i la prograrnacion de 



i como tnudio a 
! por medio del 
i gran problema 



■1 bude 



mos itwodutir 7 teros. Esto es debi 
do a que el bucle se ejecuta, al meno 

hay en el stiick. Si no lo ve claro, sig; 
paso a paso el ruruionamietilo dc 1, 



be "Ml SPECTRUM" a continua- 
don y se repite el buele, .si la teda es 
dislinia de una "A" se sale de el y se 



honiologas en BASIC. Si usied liene 
alguna idea de como fenciom inte- 



fUvjo; ^BEGIN - 



" texto"CR -*K£Y - 



nrJU 



REPITE t2 3EEGTN."VIVAH] SPECTRUM "CR KEY &5 - UNTIL . 
FIGURA 4 



: REPITE BEGIN "VIVA MI SPECTRUM " CR UNTIL ; 
FIGURA r j 



directamente dentro de la palabra 
(debemos usar otros sistemas que se 
veran mas adelantc). En este taso, se- 
ra una que llamaremos CONTA- 
DOR y la defimrcmos asi: "0 VA- 
RIABLE CONTADOR". A conti- 
nuation, detlnimos la palabra 
CUENTAS y, en primer lugar, ini- 



ta dividido en casillas en cida una de 

y para poder obtcner el dato almace- 
nado en una de ellas, el ordenador 
debe indicar su direction. El BASIC 
nos evita estos dolorcs de eabtva per- 
mitiendo asignar nombres a las casi- 
llas y, evitandouos todas las comple- 
jas manipula Clones neccsarias para 
usar su contenido. En I : ORTH las 
cosas no son tan sencillas. Para poder 
manejar una variable, en primer lu- 
gar. debemos detmirla ton la instruc- 
tion "numero VARIABLE nombre". 
Donde numero es el valor initial qu' 



ton qui 
Un; 



.i.imml 



z hetho K 
udo(« 



elr 



n vaiot 



iable. 



prcfijado)y u 

zarlo. Parapodermanejarel 
debemos pasarlo ai stack. Esto se ha- 
te coma sigue. Si dtHnunos una va- 
riable "128 VARIABLE ZOOTRO- 
PO" y el stack initialmente contiene 
los niimeros 1 2 3, el manejo sera co- 
mo sigue (tlgura 9): pnr 



.eln 



,ibre Jc l.i 



iable, 



•I ordenador ponna 
en el Stack la' direction de memoria 
asignada a esa variable, y luego pone- 
mcis una arroba "3", con lo que susti- 
tuimos la direction por los datos 
contenidos en ella. Si usamos la arro- 

cenado en el stack, los resuliados se- 
rin imprevisibles ya que utilizar.i ese 
numero como una direction y jo que 
lenga en ese silio es algo imprevisi- 
ble. Una vez situado el numero en el 
slack, podemos operar con e! de fbr- 

10), y una vez que terminemos las 
operaciones y qui 



■, deberemos us 
Imaccnado ei 



del an- 
□tra oiden. La 

el primer nu- 
I stack y lo usa 



■I segundo mil 



quitadodel stack. Si 
^uiere mcicr.se en tomplicauo- 
de mancjos le basta saber que, 
lido de \i 



ializ 



iable 



modilkado su valor antes i 
la palabra). Despues de es 
samos a la linea siguiente i 



I stack y que, para leer la (rase 






;. Retuerde que antes debe ha- 



;1 bu- 
ck BEGIN... UNTIL que se encarga 
de leer las leclas a um entail do el valor 
de CONTADOR, variable que se en- 
Para ver el funcionamiento de este carga de coniarlas. En primer lugar. 
manejo, asi tomo del BEGIN... UN- togemos una tecla con el KEY, la du- 
T1L que explicamos anteriormenie, plicamos para escribirla y no perder 











."t° i 


'( BEGIN 


)-( palabras )*( WHILE ) (palabras )♦( REPEAT ) *■•* 






: iNSP«.o? § •-> 












FIGURA & 



■ REPITE 

BEGIN ." VIVA " KEY &5 ■ WHILE 
"Ml SPECTRUM "CR UNTIL 
■' KT CR , 

FIGURA 7 



una rrase del teclado acabada ui. 
ENTER, despues im prime el mir 



da es la primera y la primera es la iilti 
ma. En la ligura 10, se ve la palabr 
definida. Antes de la definition mis 
ma, debemos defimr las variable 
usadas ya que, no se pueden detim 



su valor. Despues coaemos la 
ble CONTADOR y la incren 
mos en 1 para inditar que se ha leido 
una tecla, almacenando a continua- 
tion este valor en CONTADOR. 
Fijese que esto se hace aunque la te- 
cla leida sea el ENTER, que nos mar- 
ca el final de la t'rasc y por tamo no 
. Tome nota que luego 

restar uno. Despues del in- 
to duplitamos (para no 

en la lompatation poste- 
rior). Comprobamos si es tin "EN- 
TER! (valor ASCII Ujyterminanos 
el bucle ton el UNTIL. Al salir del 
buclc restamos uno a CONTADOR, 
salramos de linea para estribir la lon- 
gitud en la linea siguiente (sacando e 
linpnmiendotl valor almacenado en 






Willi 4$ 

5J 




MENSUALMENTE 
PARTICIPANDO EN NUESTRO CONCURSQ 



ZX premiara mensualmente Ids programas que 
hagan llegar los lectores. 

Jara participar en este concurso abierto, todo 
aficionado a los ordenadores ZX81 y ZX Spectrum, 
debera haccr llegar a la rcdaccion de la 
revista el listado, un cassette y un texto 
explicative. 

.Cjntre todos los programas que 
recibamos cada mes, seran seleccionados 
para su publicacion aquellos que reiinan 
los siguientes criterios: 

— Originalidad de la aplicacion. 

— SimpHcidad del metodo de programacion. 

_Lja iinica condicion para participar 
en el concurso sera que los programas 
no hayan sido publicados previamente en 
ninguna revista. 



UN ZX MICRODRIVE* 

sera sorteado cada mes entre todos 

los programas que recibamos, 

con independencia de que sean 

publicados o no. 




impression 


pulsar tecia 


jmpresion posterior. 


VIVA 


Y 


MI SPECTRUM 


VIVA 


S 


MI SPECTRUM 


VIVA 


A 


YO 


OK 







!..rda menos en ejecutarse de-bido a 
que se considera una sola palabra, 
mientras que la primera ("1 +") son 
dos paiabras, F.xisic igualmente una 
palabra '"2+" que suma dowl mime- 
to situado en la pane superior del 
stack. Si en algun proyrama tiene que 

momento. use esLis dos palabras. 
limit. 1 otrti sistcnu. mas ehtieme 



doalgtma 



iepas 

.licul.uloi 



,. Si 1-L.l I 



GIN- WHILE... REPEAT. Aqui, 



iiiendo un salto de linea para dejai 

l : .sia dctiniuon, junque tuneior 
focslamejorquesepuedehawr.I 
irimer lugar.hayque fij. 



raloi 



opt' 



WHILE. Cuaiido jparezca este, indi- Las dosoper 

pio-del icxto, ya que es el que iniro- euimra en e 
dujimos jI printipio, y itrmina el bu- t on strut c ion 
tie. Por ultimo tem.in.imos impri- esia ultima 


f/do^Perodefeidoal; 
interna dd FORTH 
cupa menus espacio > 


DROP autDmatkamente). Es dear, 
si queremos sumar 1 al eonienido de 
la memoria CONTADOR. (comoen 
nueslrn easo), debcremos poncr ; 
-1 CONTADOR +!".Analizandolo 


VARIABLE CONTADOR 




m^ofTOnintinuadfnplnt 


: CUENTAS CONTADOR ! 




nuis e! nombre de la variable donde 


CR 




cleamos la instruction "+!". 


BEGIN 

KEY DUP EMIT 




Algunas palabras utiles a 
definir 


CONTADOR @ 1 • CONTADOR ! 




Con todos tos eonceimientos ya 

usios. pudemus detimr jlgutijs pala- 
bras utiles que Qccesitemos, o vaya- 

rren el uso del lenguaje. En primer lu- 
a ar, vamos a crearel PEEK, similar a 
-su compjflera del BASIC. Esta pala- 

en la pane superior del stark y nos de- 


DUP 13 = UNTIL 

CR ." LA LONGITUD ES - CONTADOR is, 


" CARACTERES " 


DROP CR 
BEGIN 
EMIT DUP 
WHILE 




REPEAT 
DROP CR ; 




^diretV'iuirde^memo^a'Tndkada 


FIGURA 10 




'PEEKef, ya que la arroba pareee 



lor indicado en la pane superior del 256y sumadoal primero. Lei que no- complication. I5tll»imos que lew da- 
naek\ !o usa como una direction de sostros queremosessacarel conteni- los a pasarvanen c\ slack. En primer 



o (las variables son, 
.. numeral,). Peru s 

sos, mi. imprime 

a nuracro que pue. 
i.t-stoes< 



que la "3" couMtlcni ] 
mo de dieciseis bits, es decjr, 
mup.Ui 2 bytes, el que It mdit.li 
t'l siguicntc, (es decir, la mer 



tloildbyK'iinnn.stnn 



r, que por 256. Se observa 



'EEK * 25(- 



icda nnnn. 
Siqueremosli.(cerelPOKH(m 



nu de el, la direccifin donde quer 

plementc ":POKE !;" veremos qu 
cieciivamcnle v romo se definio jj 
m, se guarda el numero en la d 
NOrtn, pero ademas (y esto s, qi 
no In queremos), el byte sjguiente 
que hemos yuardado cs destruido 
que aligual que la "tfMeedosbyr.es, 



operacion : 

pila: 

memorta 

200TR0P0: 
(nnrm) 


ZOOTROPC 


@ 







2O0TROPO 


! 






10 






nnnn 


1 1 


U»„ 11,28 | 


126 


| 136 


136 






i 128 || 128 i | 123 || 128 


II 126 


1 IM 
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operacson: 

pila; 

rnemonas: 
direccion 
direccion+ 1 


DUP 1* PEEK 


25& 








256 








direccion 


(direc*l 


yy 


yy 


yy*256 




direccion 


direction 


[direccion 


direccion 


direccion 


direccion 


numero 


numero 


[ numero 


numero 


numero 


numero 














XX 


XX 


XX 


XX 


XX 


XX 


yy 


yy 


yy 


yy 


yy 


yy 


ROT 


SWAP ! 






nuniero 






(surna= yy*256+numero) 


F5f*256 


suraa 


direccion 


1 


direction 


direccion 


suma 






XX 


XX 


XX 


numero 


yy 


yy 


yy 


yy 













SERVICIO DE EJEMPLARES ATRASADOS 




Completa tu coleccion de ZX. 

A continuacibn te resumimos el contenido de los ejemplares 

alrasados en existencia. 





DISPONEMOS DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE "ZX" 
SIN NECESIDAD DE ENCUADERNACION. 
PRECIO/UNIDAD 



525 ptas. 




^f!^ 6 



*. 



»r 



Para hacer tu pedido. rellena el cupon adjunto, 
cortalo y envialo HOY MISMO a: 

ZX, Bravo Murillo.377«28020-MADRID.Tel. 733 74 13 _& 

Los ejemplares alrasados de ZX seran una fuente constante de cono- 
cimienlos ideas, soluciones y entretenimientos para el luluro Todo lo 
anterior hace recomendable que los guardes otdenadamente en una de 
las tapas especiales para ZX Cada tapa puede conlener 6 ejemplares 
y cuesta solamente 525 ptas 

Ruego me envien los siguiemes ejemplares atrasados de ZX 

alpreciode 250 ptas. cada uno 

Por favor envien tapa(s) al precio de 525 ptas. cada una 

p contra reembolso D cheque adjunto D con mi tarjeta de credito 
d American Expres □ Visa D Interbank. 

Fecha de caducidad 

Num„»d,m,„„e„ | j' '. | | [ [j | il I 

NOMBRE 

DIRECCION 

POBLACION C.P 

PROVINCIA : 







. POKE DTJP 1+ PEEK 2^6 * ROT + SWAP ! ; 
FIGURA 11a 


ten estas dos palabras nos heinos lia- 
do tanto? La respuesta es muy senci- 
lla, aunque en este y en la mayoria de 
los dialectos del FORTH existen, no 
estan derinidas en el estandar de 
FORTH, y porianto, puede existir al- 
gunoen el que noexistan y tengamos 
que recurnr al protedimicnto expli- 
cado antes. 

El cl proximo capitulo 

En el proximo capilulo esludiarc- 
mosalguna.s 01 ras palabras de usoco- 
rriente y veiemos algunas mas con 
las que nuestro voeabulario se am- 

tenticos FORTHparlantes. 

Fernando Garcia 


do el ssguiemc al que quercmos mo- cion, (suponemos sjempre que el da 
diticar, que es posible que contenga toaguardamocxtedede255,yaque 
information valiosj. Como ej tun- si superase esta valor, modiltcaria e 
cionamiento de "!" es inalterable, valor superior). En la figura 1 la se ve 
veamoscomo podemfw liacer queel la palabra tal comouueda y en la Mb 
contenido del byie sigutente no se se ve una description dctallada de su 
vcaaltcrado. Ya que no podcmos ha- ejetucion. mosirando la pila y Us 
cerque noescribacn ese lugar, loque memorias. 

si podemos es que escriba lo mismo En el FORTH del Spectrum, existe 
que cxistia. para ello hacemos un otto sistema mas sencillo para reali- 
PEEK (con la Euncion definida pre- zaf estos proeesos, consistent^ en 
viamenie) y, aplicando en talculo utilizar las palabras ~C9' y "C!\ si- 
anterior "(nnnn+ 1)' 256 + njinn", milares a "3" y "!" pcro operando so- 
modiflcimos.e] iiumero a tmroducir, bre un byte. En cue caso las funcio- 
de modo que lo convert! mos en uno nes PEEK y POKE quedan smipic- 
de 16 bits, cuyo byte superior es el mentc: ": PEEK CIS, "y" : POKEC!;". 
que existia previa m elite en esa posi- Listed se preguntara.ilpor quesicxis- 




SUSCRIBASE 
POR TELEFONO 

* mas facil, 

* mas comddo, 

* mas rapido 



Telf.(91)7337969 

7 dias por semana, 24 horas a su servic5.o 

SUSCRIBASE A h 




LO INCREIBLE 



m 



EESE33I 



B333333333 



■.-■■■■■■■■■■ Q3 



iiii t il V iJ i jIaifc ^n l'i. i i-,. 



■nofia standard de 64 K de RAM ampliables hssta 8. 160 K y 32 K 



» 



err 








lu|clj e 


"!k' 


Je do> iii.Hier-.is JiK'rent 


,:''« 


r.i dt: 


m.i'v..|'ueJeyii.iK»riii.i 

IW P jrun!i^mubii'a.al. 




idiom.i 


Estc 






si^nil'iL.ld. 



rquc cdnoteT t 



EnclSp I aiumiod^lJs.n..™t- 
„„ BASIC ylosiimbota que 
pod.mo, otcWUf K «PHP 
Slinp'o.»0.spUml'.«PtTO | - 

pio pucJe p-rectt al»o toniplnJ- 

c> Js,i.m...ma S r J p,d l , AJ™" 
dctedlsrasinsirucdonesquepo- 
dtrto. nfcli* *■ j"> m°"™'° 

B ligjiitciWiaq"!" H J H' J 

loniemo dado dc- 



,dt». U J 



pcndt di 



Ubu- 



| j pnmcM Jiti.uli.ut que !* | 
prcsciiu J qun'ii qua-K ■ • ■ 

BASIC dTsp^trum. abordamlo 
lensuaie *»o c dos "P" 106 



-'C1MCO FUNCION&S 
'EN UNA SOLAT£CUA 

• vaya L.10 i 



J7affi in U feqlii- 
rilt-rior l/quicrda dc la panta- 
- Vamos .1 vcrln poniendo til 
ri.h.1 l-1 Spectrum y probando 
, |j lecla -Z- -abajo a la |z- 




pro&rama [d Lualqui 
,uaie)eslades,npciondou..»^ 

Je „X la pued,. entenderyUe 







fundamental dc c 



tJraelcri'srk'j 
Jalquier orde- 

Unto, [a [j f p, , ,„,!,,, ,'■'^■l* ], 



El 



por orden. 

*rej "Proe«nu. poJ, u 
(SP4# H ™ BEE. 
11 Icntufe 





t/Ogjq , SOLO S/£lf£ ?£%/} 



rrtte 



Norm, ili, hi,, i 
"in-rvjlnsdclllp., 
1'eilnn df[.ido un 



I I I 3 | L!_b.|p |h| t| |i.j I uUL I„ i .. i i i i 




C.imuu lot numao, j c | ()s to _ 
nunuos p., rJ M ronm inrluycn 
en c! rcMilndo lm.il. Nn tc prco- 
'UpesMcn. 1 | i ! 1 .. l .ipr Uc h.M C sn^ 
fjn H"sfa dc mor cm If, p.,,,,,,. 
Hi. ks IMI'O.SIIil.i-; iviro 

n-.AR i-:l .sriiCTRUM eon in- 

ffiMtf KARBARiUAoS 
DfcSDL El IECLADO. 



rt-loj 






mil , qiledor j cn ^ 

Oidcl,„, «,„„■„,.,;!„.,„.„,£ 

>on un naa, I principio & a . 



CJJR5OT 

B CZDCD S 

PAUTtklA_ 



'"""Wproitdid jpor, u „, 
de orden . cl Sp tl ,r un , Jj c j£ 
n:mediat.imciitt EtrhwfF- . 
COMANDO. 

I'n'tha.uiirroducjfldsM,,,,,-, 
^mandosBASlCcntuSptJ 



*EJ CD E3 S 




-'I un progrj 

-- ........... U1 , , t | u , d\pul ei 

iwnullj. indii-jiidohoHs fft 
'ovy^undo,.V,u,H 1 ,, t ], v ij ir | 
tit utw s*CiSo"(eS Lui.i ,i| p r i n , 
pio. par.i po„ er |o cn h„u , llIr , 
^•r t loi> fn M.V Jm „ iJ | ilpn . 

do y Uinco p..ra U ikU. Esto 
n« vs .indiipvnijble parj cj pro- 
SfJma pem hoj pLTmitira v 
«UIUi dy |ji i 



En el Spectruni la p*rt»lU Jcl "" 

I ."visor new t!o< "-"> UJS Jilercmes: 
i reiuiittuto etn-iwi Jondt f p i 

Screen ip.uu-.ii.. e* "W^r 

-nid.jlra^edwJ.asUcUmLli- 
; :";, Jt L, ,,u,ulh dd televisor. 
Unfa BORDER (bonk- eq ■«?" 



,.,!,. SCREEN tienc 
,i cl iond" {como si 



(n 



j pout 




- BflNTALL.alSCREEf' 



Ita pane, .1 bord* Je ™ "> to 

,|,,„..dnl.i muri.caoi.o: 
BORDER numen. 



TArER num.ro 

rrwBondienW ^ wlor dc " l " 
INknunuTO (INK " tin"" 

"£ lU« ."J, M |..i.."l 
cropUM CLS, ArevM.ii.i' 

CLEAR SCREEN-. 

Lbs iiumtros Ji' los lolotel 





gE^SC* 



qic border j. 




Aiior.iv.imosaponc 
i „,,.nll f Pin 'H"" rl 1,,,li ' 



1 




- ULl 1 LltfcrLnU.l I II I pun"" 

' ,| ' K ail iLiit-r tusj <k |c pon&amosB 
J, llrc Vomdhs,!Sp^n,mseU- a 

mita .i eofi«#« *P btW nJ dJ « 



iccioii. Lis rek'remes a 
,11., solo ■erep^'r al 

.. i™ nnevos tolores, 

tksun tu.ni- 
iijiu o borramos lj 
UU PurotoCLSdebordus- 
J, INK y PAPER, 
imoiro pronnnu vjnws J 



Oti 



a copiarla - 

,i iiui/rpreuirl. 
import a 



:aria- 

iponantt Mm 
tbmia de decide al| 



.1 StJ 



PRINT cs i 

Spctimm donde debe 
CU1ENTE l'RINl que ^~- 
* tsio se hate toLocando al t 
naiunpuntcycomJl;)unaton- 

y o nadJ- 



E„ el 
PRINT 






I siauitnic 
,„». Jdl 
, elstguJEtfj 

■ sSd'do pinollk. Si to WJ 
,os nadJ Jl t' njl - el s iy ultlUC 



AUTIUZAR UNA, 5/ *I|5W 



1 PRINr empi 




n., r , 




»"milco,l„r r |, J | or(dni - 

,m "'t .wj,i.;;s hti "" 

. ruiua,,,,, |„,„| j,, , MpiJ| . ~ 



iSl^pl^g^^^ 



^tSi-Sr 



"-■mm ptoj(r.i m ,i 4 
Ull 'tii'ns.ijt l|Ut pjj,l 1,1 lio 
v yu*Jq PKMudq wu-j |loll , 
•' NUN! , ioS 




fJ pro S ram,i. 

■'«m'llpjjlt.l 



, S P :: r" •'"•■-«■ 



'^j..i.i'™,'™,"„ , ," l '™, J "' 1 '" 1 ' 1 
,niE nnii«Ei3iniH]o]?H 



rRI.MTAl I,,., „,!..,,: 




• Piraidenfeiaf 
i primn 



VARIABLE. 

" « gSmffeJ l a horj 



*e«* 




l i ,.„ pinulb por 
I El.F»» ' A,„,„., M u,l>.- 
| a.mpto.lJ^--"'-^ ""Jib- 
Ijmpunioso. u|oit| 

IksVS. -j;;: 

I m0 scp.lt.Kli"t' lU II'* l 

|l»op»""' j ""■',„ ; i is.- 

I corao i*37-'f ll "' 

U:0:O:59. . 



EisitimoiU'p. 

|HOP.A=UpoiiJ 
I bit HORA. U 
V.LET"PO'J" iStr 



,, ul ml.ul 



(del verb 





CION,ilispDnen lose 
WIS, THEN. cx pr «io n 

„i,l cerowc^ ^ ^ cltm u 



j .,*« an poco t Jtt 

, pnmcH "•>"■ P L ;; „„, 

r""^rrBA™ct:oi,» 




ignorj toda la M„t a y 
«r la sigm'ente. Vea 




£u„dodcb,n,, m o ipl „ lcr p AUSt - 
Xf. Li, qutoturrc-- ■ 

-Urdajlgodet ^ 

S_an[eriofcsy,hjyqi 



Jeiconlarlotli 
mj mji pfj«ico pj" r u dju 
vj or «pfobandoporun 
yJlorqucdjWncsresul, 
que la li 






SS^i^y^ 



Noticias 



Sir Clive llega a las 
manos en su guerra 
comercial 



microcomputadores ya no es solo 
comerciaJ; Ins purietazos se acabar 
de incorporar umbicn. 

Segun informs el diario -Cinco 
Oi.is-. d pre side nit de Sinclair 
Research, Sir Clive Sinclair, y el 
de Acorn Compilers, Chris 
Curry, no encontraron mejor 
metodo para dirinur sus ditereiicia 
" .les que darsc un par de 
iin pub de Cambridge. 
Al parecer, el motivo de la pelei 
e una campana publititaria de 
iba los 
lair. A Sir Cliv 




El coche electrico 
Sinclair listo para rodar 



A pesar de las crincas que [a 
;.)sj .Sinclair ha recibido por la 
iimsiilocion de sus productos, 



o se espera que 
Breiana. 



os datos ya que la 
compania Sintla;r ha guardado un 
silencio absolute) sobie el misnio. 
Debido a csie ■■rr.i<tctjri», todo lo 
que se sabe al r^spetio es graciaS a 
las filtra ciones conseguidas por la 
prensa bntanica. 




Siguenos y, 



La gran novedad que present.! 
este coche elcctrico es utilizer los 
pedalcs tomo sistema de 
propulsion |unto ton un motor de 
lavadora de 250 vatios. Dos 
baterias rccargables proporcionaran 
la energia necesaria. 

Sinclair espera revolucionar el 
trarko urbano eon su invenlo, que 
reeibira e! nombrc de C-5. Su bajo 
coste -unas 90.000 pesetas- sus 
reducidas dimensions -dos 
metros de largo y 76 ccnt/metros 
de ancho y alio-, y sus 60 Kg. de 



peso le auguran un buen luiuro e 

En cuanto a la auionomia y 
velocidad del coche los datos son 
algo confuses. Una velocidad de 
24 kilometres por hora y una 
autonomia de 38,5 kilomeiros soi 
las cit'ras que aporia cl semanario 
britanico ■<Tbe Ingmeer". Por su 
parte, el "Mail on Sunday'" sefi.Ua 
72 kilometres por bora de 
velocidad y 98 kilomeiros dc 



agor.cn, una bombilla acoplada a 
un sisiema clectronico, avisara a! 
conductor que dene que pcdalcar. 

La production en serie de este 
vchiculo —que sera uniplaza— 






n la 



facioria Hoover de Gales rodcada 
de un velo de misterio que Sir 
Clive no piensa levaniar hasta que 
el revolutionario producto sea 
lanzadfl al mercado. 



Enc 






bate 



El concurso Un, Dos, 
Tres... y sus premios 



Hemes hecho de esptas y 
aunque ion las lunitationes que 
una information indirecta puede 
icner respecto a la realidad final, 
hoy podemos adelantar a nuesttcu 
leciores que los premios seran 
— enlrc otros— los siguientes: 

-Varies viajes 'kii.imos:' de I'm 
de semana en Palma dc Mallorca. 

— Casi seguro un viaje a la 
Organization Sinclair (iLondres?)- 

-Ciclomoior de la tasa Vespa. 

— Varios viajes, ituanlos? de fin 
dote pulgadas Modelo TP 200. 

—No menos dc 25 sinteiizadorcs 
de voz Curtail speech. 

-Tambien no menos dc 25 
magncioionos Computer Auto 



Data Recorder Modelo CI 08, 
Gold-King, 

T.stos ultimo* tres gtupos de 
regales proccdentc de la tirma 
CECOMSA, 

Lie INVESTRON1CA se pucden 
obtcner algunos de los siguientes 

Ordenadores pcrsonales QL. 
Bucna nolicia por su talidad, su 
pretio y sus posibilidadcs. 

Tambien el miniordenador 
Spectrum Plus sera obsequio en 
alguna buena cantidad de 
unidades. 

Otros concursanics ohtcndr.in 
Microdrives c Interfaces I. 
No fiiltarin las ya casi 



imprescindiblcs Microti]] las en 
paqueles de unco unidades y en 

No debemns olvidar los premios 
"SEGUROS" tomo dken las 
instructiones del iuego que 
toiiliencn uno de cada tres cassettes 
vendidos. Ya solamenie estos 

miles de premios, 

V sabcrnos que ha bra algunos 
premios mas, pero que hoy por 
hoy no hemos podido averiguar. Si 
en los proximo* dias lonscguimos 




Noticias 



Teclado plus para su Spectrum normal 



Sinclair Research vuelve a ser nolicia con el plus, 
esta vez por el teclado. Por 30 libras (menos de 6.000 
pts.), los britinicos ya pucden disponer del kit. "Tan 
solo una soldadura para unir algunos cables y su 

la publicidad de Sir Clive. Y si no sc atrcve con el 
soldador, se puede dejar que los "chicho-S do .Sinclair' 
lo liagan, por el medico incremento de 20 libras. M 
teclado, sc acompana el manual de inslrucciones y el 
cassette de demostracion del plus. Por e! n 
solo esti disponiblc en Inglatcrra. 





COIMECTA CON NOSOTROS 




[•JOT Presenta a su nuevo equipo; 

Lj^J^J Oscar Domingo, Joan Sales y Vicente Mendoza 
^^HH! En Barcebna, P £ de Gracia 11, esc. C 2 4' 



Noticias 



El Club de programati6n Alaiz 

:ando tndo lipo de 



vidaJes 



ma das 



ido de la in term .iii c.i y de 

program. it ion dt los ordenado 

Para estc segundo trimestre i 

previsios nuevos cursos de BA. 

siguiendo la misma linea 

pid.igojiiea de los que Sf h.in 






de duration. 
Compucstos por grupos redueidos 






■s por 



' dot 



profesores ayuda 
praeiic.is. Estos eursos van 
duigidos ,i .ilumniis de eursos 
supenores de ECR. BUP v COU. 

Con el comieozo del «5 se 
empezo un curso de Logo, bjsido 

Este proyeeto, denorninado 
-NALO-porcl consejo asesordel 
Club de Proeramacjon Alaiz, dene 
finalidades claras. La primera v 



«EI Logo en el 
Club Alaiz» 

mas i m porta me mtroducir .1 
alumnos entre 4- y b." de EGB en 

el mundo de los dtdenjdorcs a 
iraves de Ij elaboration de 

dt gr.ititos de rortuga. Otr.i 
Un.1lid.1d es Ij de evaluar l.i 

asisteiwts. F.I otro'nitercs que ti 
es el Lie considers Us aptitudes 

Hik tnseiian Logo para tenlnr 

diLiplin.iv Con lodoello sc 
el.lbur.ir.i Ltn Iraliaio de 
investigacidn. 

P,i r.i I e l.im ente y ante las 
numcrosas propuestas .il respec 

■1 prim 



BASIC. El 

explieaeio, 



1 l.i progra 



amas. tipo procesador de 
i, bases de datos, liojas 



Seguiran Funcionaiido lew 



is que lun dci 



1985 se orgaaiz 



progra mat ion. Son supervisados 
por un protcsof de CPA y elaboran 
progra mas educattvos y 
aplicaciones para el u>o interna 
del Club, para la presentation en 
coneimos, para los socio*, etc." 

En la actualidad el Club de 
Programacion Alai/ ptisec 10 
orden adores personales de disiimas 
marcas y una aniplia programoteca 
y bibKoten de libros, revisras y 

Esta patrocinado poi U "Caja de 
Ahorros dt Pamplona" v --NOAJN 
Imagen y Sunido- e -ITAR 



Premio 
Microdrive 



El azar hizo que el micradrive del 
numtru de dieiembre 
correspondiese a un lector de 
Madrid, eoncretamente a Alberto 
Dieguez Cano. omen no pudiendo 

-metodo habitual de envio- se 

previo aviso, acompafiado de su 
primo Ernesto, Alberto, iod.ivia 
eon asombro c ilusidn -aunquc ya 
lenia una unidad de microdrivc— 
nos comentaba: -He aprovechado 
que ib.i .1 comprarme el teclado 
profesional para pasar a recover mi 



ptriicricos... y dos mKtadmw. 
Sin embargo, aun habiendo 
leidoel aumero de diriembre ce 
gran detcnitt 






ride 1 









.agin.is de ZX. 
. Cuando mi 
mirase el ZX 



lado n 

sta; iestoy el 40 de la tola! 
Nuestro ganador pensaba vend 
Spectrum y eon lo que saease 



deseubri". Al tonoeerlo todos los 
amigos del tolegio, incluido el 
prolesor, me preguntaban tpara 

"Cotno yo ya tengo uno, el 
inltrjuc( se lo prestare a nil primo 
que vive en el mismo bloquc que 
yo, y asi nos pasaremos programai 
pur la red". Enrique — su primo— 

hubiese tocado 
tengo el interfac 



-Al.oi 



que 



^OVi^ftDf^ 



PROGRAMAS 

ORIGINALES 

DE IMPORTACIOI\ 

PARA 

— RUM 



ELORDENADOR 
EN JUVENALI A '84 




un jucgo que 
Dragon- I.J Di~— 
ElcciranitJ e Inrormaljea viiili; 
cl 20/0 y el liermarto mayor, l.i 
seric 40, para analizar el pertil de 
cuantos se situaban (rente a l.i 
palilalia. RBNFE opto por el 
Armstrand, para el que habia 



de l.i intbrmitica. 1:1 
pamemo si 
organizdra En Tarragona, ton 
order! a do res Spear 
Commodore y Dragda — para 

.formation sobre el tenia 
pueden diriyirse al telet'ono 
4 1025 29 de Madrid-. Y por 

o, destaear la oftnsiva MSX de 
node Sony v Philisps. 






W a»i8ma 







b;#. I ^Eli^ 



UgM 




Ej^^H Envienos a MICRQBYTE, P." (Jaslellana. 179- 1." 28046 Madrid 
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GRAN SORTEO 
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** D. LUIS ESPELT SANCHO 
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GANADOR DE UN VESPINO SUPER CONFORT 

EN EL SORTEO CELEBRADO 

EL DIA 22 DE ENERO DE 1985 

ANTE NOTARIO DEL ILUSTRE COLEGiO DE MADRID. 

SIGUE CONCURSANDO CON "ZX" 
EL PROXIMO PREMIO PUEDE SEP, TUYO j 




Interface Spectrum 



Interface RS232 c=>Blnterface Centronics^ 3 ! 
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u utilis 



Tntio por j 48.500 Plas.| er 
lu lienda de In forma lira o di 
reetamenle en MICKOBYTE 



una sola unidad compai 
se conecta a tu Spectrum en 
units segundns. Sin eableados 
engorrosos. Potenle y eficaz. 
Esd es WAFADKIVE, elegido 
periferico del ano en el Reino 
Unido y fabricado por Rotro- 

tnlerface con el Spectrum. 
Interface serte RS/232 (con ve- 
locidad de Iransmision selec- 
cionable por software), interfa- 
ce paralelo Centronics y dos 
drives de 128 K cada uno que 



utilizan cartuchos de 16, 64 o 
128 K disenados para propor- 
cionar una alta velocidad de 
trans lerencia de dalos (2 K por 
segundol y la maxima Fiabili- 
dad. 

Dale a tu Spectrum la poten- 
cia y la versatilidad de un sis- 
leraa aulenticamenle profesio- 
nal, Y aprovechate de nueslra 
Oferta Especial de lanzamien- 
to en la que, para que conozcas 
uno de los muchos programas 
Vil disponihles para el VVAFA- 
URIVE. inclulmoB el Spectral 
Writer (un excelente Procesa- 
dor de Textos). Y un cartucho 
virgen. Y manuales en castella- 
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MICROBYTE, P"Caslellana.179-t " 

2BW6-Madrir] 

Pedidos po r telefono 

91-442 64 33 
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Tenemos absolutamente todos los litulos del mercado... 
iiy a los mejores precios!! 



.1 THROTTLE BE/CH-HEAD SAB!)! W 



)H point recATHiot* pyjamwwma 



iTodaslascintasn. ! 



para el Spectrum a I.ZOL/Pts! 

Programas en microdrive para Spectrum. programas en mj cr0 drive para QL 

TranS Ke ( Dr s P,S) ' ENSAMBLADOR FORTH 

^ContaMidad C^ ' DKENSAMBLADOR PASCAL 

y lo ultimo del mercado 




iConsulta precios! 



